Database MoveNext, MovePrevious Fejl

Kan det være sant at man skal bruge \"On Error Resume Next\" for at undgåe fejl i cmdNext_Click()
og cmdPrevious_Click(), findes der ikke en anden muglihed.

Option Explicit

Dim db As Database  \'Reference Microsoft DAO 3.5 Object Libary
Dim rs As Recordset \'Reference Microsoft DAO 3.5 Object Libary

Private Sub cmdNext_Click()
On Error Resume Next
rs.MoveNext
Opdater
End Sub

Private Sub cmdPrevious_Click()
On Error Resume Next
rs.MovePrevious
Opdater
End Sub

Function Opdater()
txtName.Text = rs.Fields(\"Name\")
txtEmail.Text = rs.Fields(\"Email\")
txtPhone.Text = rs.Fields(\"Phone\")
txtFax.Text = rs.Fields(\"Fax\")
End Function