Private oBC As MSBind.BindingCollection
Private adoCn As ADODB.Connection
Private adoRs As ADODB.Recordset
 
Public Sub CnÖffnen()
   Set adoCn = New ADODB.Connection
   With adoCn
       .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
         dbpfad$
       .CursorLocation = adUseClient
       .Mode = adModeReadWrite  
       .Open
       If .State = adStateOpen Then
          MsgBox "Open " + dbpfad$
       End If
   End With
End Sub
 
Public Function RsÖffnen(Quelle As String, Optional Typ As _
  ADODB.CursorTypeEnum,                  Optional Ort As _
  ADODB.CursorLocationEnum) As Long
 
On Error GoTo RSfehler
  Set adoRs = New ADODB.Recordset
 
   With adoRs
       .ActiveConnection = adoCn
      .CursorType = adOpenKeyset
      .CursorLocation = adUseServer
      .Source = Quelle
      .LockType = adLockBatchOptimistic
      .Open
      RsÖffnen = adoRs.RecordCount
  End With
Exit Function
 
RSfehler:
MsgBox "RS Öffnen Fehler " + CStr(Err)
End Function
 
Public Sub DBSchreiben(f1$, f2$, f3)
   On Error GoTo DBFehler:
   RsÖffnen ("Anwesenheit")
   Set oBC = New MSBind.BindingCollection
 
  With oBC
     Set .DataSource = adoRs
     adoRs.AddNew
     adoRs("feld1") = f1$
     adoRs("feld2") = f2$
     adoRs("feld3") = f3
     adoRs.Update
     adoRs.Close
     Set adoRs = Nothing
  End With
 
  Exit Sub
 
DBFehler:
   MsgBox "Schreiben Fehler " + CStr(Err)
End Sub

Set oBC = New MSBind.BindingCollection
 
  With oBC
     Set .DataSource = adoRs
     adoRs.AddNew
     adoRs("feld1") = f1$
     adoRs("feld2") = f2$
     adoRs("feld3") = f3
     adoRs.Update
     adoRs.Close
     Set adoRs = Nothing
  End With