→→→テキストファイルからデータセットにデータを取得

Dim i , j As Interger
Dim dSet As DataSet = New DataSet
Dim dAdp As OleDb.OleDbDataAdapter
Dim ocn As OleDb.OleDbConnection

'接続文字列を作成する
ocn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" &
                "Data Source=D:\**;Extended Properties = Text;")
'ファイル名を指定してデータを読み込み
dAdp = New OleDb.OleDbDataAdapter("SELECT * FROM Samp;e.csv", ocn)
'読んだ内容を[出力]ウィンドウに表示する
For i = 0 To dSet.Tables(0).Rows.Count() - 1
   For j = 0 To dSet.Tables(0).Colums.Count() - 1
       Debug.Write( dSet.Tables(0).Rows(i)(j) & ControlChars.Tab )
   Next
   Debug.Write( ControlChars.NewLine)
Next