Dim myAdaConnection As New OleDb.OleDbConnection
myAdaConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source="D:\datei\; Extended Properties='text; HDR=NO'"
 
Dim myAdaCommand As New OleDb.OleDbCommand
myAdaCommand.Connection = myAdaConnection
myAdaCommand.CommandText = "SELECT * FROM S_RADA30.DAT"
 
Try
     myAdaConnection.Open()
Catch ex As Exception
     MsgBox(ex.Message)
End Try
 
Dim myAdaDataAdapter As New OleDb.OleDbDataAdapter
myAdaDataAdapter.SelectCommand = myAdaCommand
 
Dim myAdaSet As DataSet = New DataSet
myAdaDataAdapter.Fill(myAdaSet, "ADA")