Public Sub hinzufügen()
 
    With RsKunden
        .ActiveConnection = conn
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockPessimistic
        .Source = "SELECT * FROM tblKunde"
        .Open
 
        .AddNew
        .Fields("Kundennr") = Me.txtKundenNummer.Text
        .Fields("Kundenname") = Me.txtKundenName.Text
        .Fields("Strasse") = Me.txtStrasse.Text
        .Fields("Ort") = Me.txtOrt.Text
        .Fields("Plz") = Me.txtPlz.Text
        .Fields("Telefon") = Me.txtTelefon.Text
        .Fields("Fax") = Me.txtFax.Text
        .Fields("Email") = Me.txtEmail.Text
        .Fields("Mobil") = Me.txtMobil.Text
        '.Fields("ModTime") =
        '.Fields("Moduser") =
 
        .Update
 
    End With
End Sub