im not sure.. maybe u can use something like this...:
Code:
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim bClick As Boolean

Private Sub Form_Load()
  bClick = False
End Sub

Private Sub FindNext_Click()

If bClick = False Then
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sample.mdb"
    
    Set rs = New ADODB.Recordset
    rs.Open "Select * From Table1 Where Table1.Name='Ur_Search_Here'", cn, adOpenDynamic, adLockOptimistic

    MainPage.Text1.Text = rs(0)
    MainPage.Text2.Text = rs(1)
    'etc................
    
    rs.MoveNext
    bClick = True
Else
    If rs.EOF = False Then
        MainPage.Text1.Text = rs(0)
        MainPage.Text2.Text = rs(1)
        'etc....................
        
        rs.MoveNext
    Else
        MsgBox "No more records"
        rs.Close
        cn.Close
    End If
End If

End Sub