Option Explicit
Public Connection As ADODB.Connection
 
Private Sub Verbindung()
 
'-Verbindung zur Datenbank herstellen
   Set Connection = New ADODB.Connection
   With Connection
      .ConnectionString = ".\Fahrbereitschaft.mdb"
      .Provider = "Microsoft.Jet.OLEDB.4.0" 'für Access 2000/XP/2003
      .CursorLocation = adUseClient
      Call .Open
   End With
 
End Sub

'-Verbindung zur Datenbank herstellen
Private Sub cmdConnect_Click()
 
   '-Überprüfung, ob Verbindung besteht
   If Connection.State = 1 Then
 
      '- Recordset anlegen und öffnen
      Set rsKFZ = New ADODB.Recordset
      rsKFZ.Open "T_KFZ", Connection, adOpenDynamic, adLockPessimistic
 
      '-Springe zum ersten Datensatz
      rsKFZ.MoveFirst
      While Not rsKFZ.EOF
         Me.DBComboKFZ.AddItem (rsKFZ.Fields("F_RegNum"))
         Me.DBComboKFZI_ID.AddItem (rsKFZ.Fields("I_ID"))
         rsKFZ.MoveNext
      Wend
   Else
      MsgBox ("Fehler beim Verbinden der Datenbank")
   End If
End Sub