Private Sub cmdmovenext_Click()
   On Error goto fehler:
   If rs.RecordCount > 0 And Not rs.EOF Then
      rs.MoveNext
      txttitel.Text = rs("cdtitel")
      txtinterpret.Text = rs("cdinterpret")
   End If
   Exit sub
fehler:
   If Err.Number = 3021 Then ' Kein aktueller Datensatz
      MsgBox " Letzter Datensatz erreicht"
   else
      MsgBox "Fehler: " & Err.Number
   end if
End Sub