Dim ConnectionString As String
        ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & "c:\Tabfiles\" & ";" & _
            "Extended Properties='Text;HDR=YES;FMT=TabDelimited'"
 
        Dim TextConnection As New System.Data.OleDb.OleDbConnection( _
          ConnectionString)
        TextConnection.Open()
 
        Dim da As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM" & _
          "Test_new_Tab.tab", TextConnection)
 
        da.Fill(ds, "Testtabelle")