Dim ConnectionString As String
 
  ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
    "Source=D:\Temp\;Extended Properties=dBase IV"
  Dim dBaseConnection As New System.Data.OleDb.OleDbConnection(ConnectionString)
  dBaseConnection.Open()
 
  Dim dBaseCommand As New System.Data.OleDb.OleDbCommand("SELECT * FROM" & _
    "dBaseDaten", dBaseConnection)
  Dim dBaseDataReader As System.Data.OleDb.OleDbDataReader = _
  dBaseCommand.ExecuteReader(CommandBehavior.SequentialAccess)
 
  While dBaseDataReader.Read
    MsgBox (dBaseDataReader("Column1").ToString))
  End While
 
  dBaseConnection.Close()

EALA FREYA FRESENA