Private Sub cmdPreviousRec_Click()

On Error GoTo ErrorHandler

    rs.MovePrevious
    DisplayCurrentRecord

ExitHandler:
    Exit Sub
ErrorHandler:
    MsgBox Error$
    Resume ExitHandler
End Sub