Private Sub cmdAustragen_Click()
    Dim rs As New ADODB.Recordset
    Dim dateRaus As Date
    Dim dateBack As Date
    dateRaus = CDate(DatePickerRaus.Value)
    dateBack = CDate(DatePickerBack.Value)
 
    With rs 'open and update fields ...
        .Open "SELECT * FROM " & dbPCP & " WHERE ID=" & txtHideID.Value, _
          CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        .Fields("PcSr") = txtNewSR.Value
        .Fields("PcOwner") = txtNewOwner
        .Fields("PcGiveAwayDate") = dateRaus
        .Fields("PcGetBackDate") = dateBack
        .Fields("PcComment") = txtNewComment.Value
        .MoveNext 'saving
 
        .Close
    End With
End Sub

//23