To cheat:
Code:
On Error Resume Next
rs.MovePrevious
If Err Then MsgBox "No previous record"
On Error Goto 0