Sub Main()
        Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=d:\vb\dbtest1\dbtest1.mdb"
        Dim con As New OleDb.OleDbConnection
        Dim DS As New DataSet
 
        con.ConnectionString = strCon
 
        Dim sqladapter As OleDb.OleDbDataAdapter
 
        sqladapter = New OleDb.OleDbDataAdapter("Select * from mbsize", con)
 
        con.Open()
 
        sqladapter.Fill(DS)
 
       ....was muss hierhin, um die Daten auszulesen und in der Console _
         auszugeben?
 
        Console.WriteLine("Verbindung erfolgreich hergestellt")
 
        con.Close()