Dim sSQL As String
Dim bvorhanden As Boolean
Dim i As Long
 
 
    sSQL = "SELECT * FROM Kunden"
    If cKunde.nKunde.State <> 0 Then
        cKunde.nKunde.Close
        Set cKunde.nKunde = Nothing
        Set cKunde.nKunde = New ADODB.Recordset
    End If
    cKunde.nKunde.Open sSQL, dbconn, adOpenStatic, adLockOptimistic

     neuKunde = True
     dbconn.BeginTrans
     DatenPuffer Me
 
     cKunde.nKunde.Update
 
 
       SQL = "INSERT INTO Kunden (Kunden_Nr, Haus, Strasse, PLZ, Ort," & _
         "Heimleiter, Telefon)" & _
             " Values(" & txtHausNr.Text & ", " & txtHaus.Text & ", " & _
             txtStraße.Text & ", " & txtPLZ.Text & ", " & txtOrt.Text & ", " & _
             txtLeiter.Text & ", " & txtTelefon.Text & ")"
 
       dbconn.Execute SQL
 
 
     On Error Resume Next
 
     On Error GoTo 0
 
 
     dbconn.CommitTrans
     neuKunde = False

Public Sub DatenPuffer(MyForm As Form)
Dim i As Double
'----- Daten in Puffer schreiben ----
 
     If neuKunde = True Then
         cKunde.nKunde.AddNew
         cKunde.nKunde.Fields("Kunden_Nr") = NeueKundenNr
     End If
 
 
     On Error Resume Next
     cKunde.PufferKunde "Kunden_Nr", MyForm.txtHausNr.Text
     On Error GoTo 0
     On Error Resume Next
     cKunde.PufferKunde "Haus", MyForm.txtHaus.Text
     On Error GoTo 0
     On Error Resume Next
     cKunde.PufferKunde "Strasse", MyForm.txtStraße.Text
     On Error GoTo 0
     On Error Resume Next
     cKunde.PufferKunde "PLZ", MyForm.txtPLZ.Text
     On Error GoTo 0
     On Error Resume Next
     cKunde.PufferKunde "Ort", MyForm.txtOrt.Text
     On Error GoTo 0
     On Error Resume Next
     cKunde.PufferKunde "Heimleiter", MyForm.txtLeiter.Text
     On Error GoTo 0
     On Error Resume Next
     cKunde.PufferKunde "Telefon", MyForm.txtTelefon.Text
     On Error GoTo 0
 
    Exit Sub
 
 
End Sub
 
 
Public Function NeueKundenNr() As Long
Dim sSQL As String, rsNeueKundenNr As New ADODB.Recordset
 
   sSQL = "SELECT MAX(Kunden_Nr) + 1 AS NeueKundenNr From Kunden "
   rsNeueKundenNr.Open sSQL, dbconn
   NeueKundenNr = rsNeueKundenNr.Fields(NeueKundenNr)
   rsNeueKundenNr.Close
   Set rsNeueKundenNr = Nothing