Option Explicit
 
Public cnDatenbank    As ADODB.Connection
 
Public Sub Main()
    frmSplash.Show
    frmSplash.Refresh
    Set cnDatenbank = New ADODB.Connection
 
    cnDatenbank.CursorLocation = adUseClient
 
    cnDatenbank.Open "Provider=Microsoft.Jet.Oledb.4.0;" & _
        "Data source="
   Form1.Show
End Sub

Dim Ergebnis             As ADODB.Recordset
 
Private Sub Form_Load()
    Set Ergebnis = New ADODB.Recordset
 
    Ergebnis.Open "select * from KundenDaten", cnDatenbank, adOpenDynamic _
        , adLockOptimistic
End Sub