Option Explicit
 
'Connection zur DB
Public Function ConnectionOpen(gConnection As ADODB.Connection) As Boolean
 
   Dim Msg As String
 
      'Object generieren
      If gConnection Is Nothing Then
         Set gConnection = New ADODB.Connection
         With gConnection
         .CursorLocation = adUseClient
         .Provider = "Microsoft.Jet.OLEDB.4.0"
         .ConnectionString = ".\Fahrbereitschaft.mdb"
         '.Mode = adModeShareDenyNone
         .Open
         End With
         ConnectionOpen = True
 
         If gConnection.State = adStateOpen Then
            ConnectionOpen = True
            frmInput.lblNichtVerbunden.Visible = False
            frmInput.lblVerbunden.Visible = True
         Else
            ConnectionOpen = False
            frmInput.lblVerbunden.Visible = False
            frmInput.lblNichtVerbunden.Visible = True
            MsgBox ("Verbindung zur Datenbank fehlgeschlagen")
         End If
      Else
         ConnectionOpen = True
         frmInput.lblNichtVerbunden.Visible = False
         frmInput.lblVerbunden.Visible = True
      End If
 
End Function

      '- Recordset anlegen und öffnen
      Set rsKFZ = New ADODB.Recordset
      rsKFZ.Open "T_KFZ", gConnection, adOpenDynamic, adLockPessimistic