Public sql As String                  'SQL Statement
Public db_pfad As String              'Datenbankpfad
Public cn As ADODB.Connection         'Verbindung zur Datenbank
Public rs As New ADODB.Recordset      'Recordset für Datenbank Zugriff
 
Sub Main()
Dim temp as String
 
    db_pfad = ""
 
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data" & _
      "Source=Microsoft Access-Datenbank;Initial Catalog=" & db_pfad
    cn.Open
 
    sql = "SELECT * FROM tabellenname"
    rs.Open sql, cn, adOpenKeyset
 
    While Not rs.EOF
        temp = temp +  rs.Fields("spaltenname") + vbCrLf
        rs.MoveNext
    Wend
    rs.Close
 
    MsgBox temp
End Sub