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

السلام عليكم

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

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

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

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