مشكلة تواجة المستخدم فى بعض الاحيان؟؟؟؟؟ وحلها

يجب عند الضغط على مفتاح التالى ومفيش سجلات تالية بيعترض وكذلك عند الضغط على مفتاح السابق
وضع هذا الكود فى مفتاح التالى
Code:
()Private Sub Command1_Click
Command2.Enabled = True
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
Command1.Enabled = False
End If
End Sub
اما مفتاح السابق فضع هذا الكود داخلة
Code:
Private Sub Command2_Click()
Command1.Enabled = True
Data1.Recordset.MoveLast
If Data1.Recordset.BOF = True Then
Command2.Enabled = False
End If
End Sub