Public AdrDatenbank As ADODB.Connection
 
Public Sub Main()
 
    Set AdrDatenbank = New ADODB.Connection
 
    AdrDatenbank.CursorLocation = adUseClient
 
    AdrDatenbank.Open "Provider=Microsoft.Jet.Oledb.4.0;" & _
        "Data source=" & DATENBANK ' Bitte ergänzen
 
    Form1.Show ' Ich habe den Namen der Form nicht geändert!
 
End Sub

Dim Adr As ADODB.Recordset
 
So, dann fügst Du noch einen Button hinzu und ein Textfeld (Multiline = True) _
  Im Abschnitt des Buttons: 
 
    Set Adr = New ADODB.Recordset
 
    Adr.Open "select * from DEINDATENBANKNAME!", AdrDatenbank, adOpenDynamic _
        , adLockOptimistic

AdrDatenbank.Close