Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
  "Source=d:\daten\dbase\;" & ";Extended Properties=dBase IV"
Dim dBaseConnect As New System.Data.OleDb.OleDbConnection(ConnectionString)
dBaseConnect.Open()
Dim dBaseCommand As New System.Data.OleDb.OleDbCommand("SELECT * FROM " & _
  pTabName, dBaseConnect)
Dim rs As System.Data.OleDb.OleDbDataReader = dBaseCommand.ExecuteReader()