[asto]

هذه اكواد السابق و التالي :

كود :

Private Sub Command1_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst
End Sub

Private Sub Command2_Click()
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
Else
Data1.Recordset.MovePrevious
End If
End Sub

و بالنسبة للبحث استبدل Findfirst ب FindNext