Private Sub cmdSpeichern_Click()
    Dim cmdUpdate As New ADODB.Command
    cmdUpdate.ActiveConnection = AdoAccess
 
    Dim sUpdate As String 'Update-Anweisung
    Dim sSet As String 'Set-Anweisung
    Dim sWhere As String 'Where-Anweisung
 
    sUpdate = "UPDATE tblReklamationen "
    sSet = "SET Eingangsdatum ='" & txtEingangsdatum.Text & "',Bearbeiter =" & _
      frmLogin.sUserNr
    sWhere = " WHERE Rekl_Nr ='" & txtReklamationsnr.Text & "'"
 
    'Speichern der momentanen Bearbeitung
    If txtEingangsdatum.Text = "" Then
        MsgBox "Speichern nicht möglich! Eingangsdatum der Reklamation" & _
          "erforderlich."
    Else
        cmdUpdate.CommandText = sUpdate & sSet & sWhere
        cmdUpdate.Execute 'Ausführen der Update-Anweisung
        rstRekl.Requery 'Aktualisieren der Recordsets
    End If
End Sub

rstRekl.Requery