Imports System.Data.OleDb

Module MyModule

' ********************************************************
' 実行
' ********************************************************
Sub Main()

	Dim myConnectString As String = _
	"Provider=Microsoft.Jet.OLEDB.4.0;" + _
	"Data Source=C:\Documents and Settings\lightbox\My Documents\社員マスタ.xls;" + _
	"Extended Properties=""Excel 8.0;IMEX=1;"""

	Dim myCon As New OleDbConnection()
	myCon.ConnectionString = myConnectString
	myCon.Open()

	Dim myQuery As String = "SELECT * from 社員マスタ"
	Dim myCommand As New OleDbCommand()
	myCommand.CommandText = myQuery
	myCommand.Connection = myCon

	Dim myReader As OleDbDataReader
	myReader = myCommand.ExecuteReader()
	Dim fld As Integer = 0
	Do While myReader.Read()
		fld = myReader.GetOrdinal("氏名")
		Console.WriteLine(myReader.GetString(fld))
	Loop
	myReader.Close()
	myCon.Close()

End Sub

End Module