Private Sub Test()
  Dim JH_REP_TAN As Recordset
  Set JH_REP_TAN = TDAUSER.rsGetTAN
 
  Do
  JH_REP_TAN.Open
    With JH_REP_TAN
      .Requery
      tan = !NUMLFD
      tan = tan + 1
      !NUMLFD = tan
      On Error GoTo Fehler
      .Update
      Text1 = tan
      GoTo Weiter
Fehler:
      .CancelUpdate
      Text1 = "wrong"
Weiter:
    End With
    JH_REP_TAN.Close
    DoEvents
  Loop
End Sub