Public Sub hinzufügen()
 
    ' Öffnet tblKunde Tabelle.
    Set RsKunden = New ADODB.Recordset
    RsKunden.CursorType = adOpenKeyset
    RsKunden.LockType = adLockPessimistic
    RsKunden.Open "tblKunde", conn, , , adCmdTable
 
    ' Fügt DS hinzu
    RsKunden.AddNew
    RsKunden!Kundennr = Me.txtKundenNummer <--hier meckert er ...
    RsKunden!Kundenname = Me.txtKundenName
    RsKunden.Update
 
 
    ' schließt Tabelle + Connection
    RsKunden.Close
    conn.Close
 
End Sub