Dim str_provider As String = "Microsoft.Jet.OLEDB.4.0"
Dim con_csv As New system.Data.OleDb.OleDbConnection
Dim da As New system.Data.OleDb.OleDbDataAdapter
Dim ds as new system.Data.DataSet("daten")
Dim rcs_data As New adodb.RecordsetClass
 
'Verbindung herstellen
con_csv.ConnectionString = "Provider=" & str_provider & ";Data Source=" & _
  str_file_path & ";" & "Extended Properties='Text;HDR=NO;FMT=Delimited'"
 
con_csv.Open()
 
'Verbindung dem Recordset zuweisen
'Hier heist's immer "Schnittstelle wird nicht unterstützt"
rcs_data.ActiveConnection = con_csv
 
'Krempel auslesen
rcs_data.Source = "SELECT * FROM " & str_file_name
rcs_data.CursorLocation = adodb.CursorLocationEnum.adUseClient
rcs_data.LockType = adodb.LockTypeEnum.adLockOptimistic
rcs_data.Open
 
da.fill(ds, rcs_data, "zeuch")
dat_data.SetDataBinding(ds, "zeuch")
 
con_csv.Close()