Public AdrDatenbank As ADODB.Connection
 
Public Sub Main()
 
    Set AdrDatenbank = New ADODB.Connection
 
    AdrDatenbank.CursorLocation = adUseClient
 
    AdrDatenbank.Open "Driver={Sage KHK Classic Line 3.2};" & _ ' Kann Sein, 
    ' daß Du { und } weg lassen musst.
       & "SERVER=IP-Adresse";" _
       & "DATABASE=TABELLE;" _
       & "UID=Benutzer;" _
       & "Password=PW"
    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