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

    Set Adr = New ADODB.Recordset
 
    Adr.Open "select * from DEINDATENBANKNAME!", AdrDatenbank, adOpenDynamic _
        , adLockOptimistic
    Adr.MoveFirst
    Do While Not Adr.EOF = True
        Text1.Text = Text1.Text & StoerBez2 & vbCrlf
         Adr.MoveNext
    Loop