[مغلق - سؤال مخالف]مشكلة في التنقل التالي و السابق

السلام عليكم

هذا الكود المستعمل لكن عند التنقل الى التالي او الرجوع الزرين لا يعملان

لم اجد حل لهذه المشكلة

ارجو المساعدة

 Private Sub Command1_Click()
On Error Resume Next
Data1.Recordset.MoveNext
End Sub

Private Sub Command2_Click()
On Error Resume Next
Data1.Recordset.MovePrevious
End Sub

Private Sub Text1_Change()
Text5.Text = Val(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text))
End Sub