Private Sub cmdNext_Click() Me.Recordset.MoveNext If Me.Recordset.EOF Then Me.Recordset.MovePrevious MsgBox "Already at Last Record!!" End If Me.Bookmark = Me.Recordset.Bookmark End Sub