vb6 - VB および MS Access で ADODC を使用してレコードを検索する

Question

3 つのフィールド Fields(0,1,2) を持つテーブルがあり、Visual Basic で ADODC コントロールを使用して検索を実行したいと考えています。問題は、順番に、またはレコードセット ポインターがそのレコード上にあるときに検索できることです。レコードをランダムに検索したいだけです。データベースとして MS Access(*.mdb) を使用し、接続には ADODC を使用しています。Text7 contains search key.検索コマンド ボタンの Click イベントは次のとおりです。

Private Sub Search_Click()
Dim flag As Integer
flag = 0
Do

    If (Val(Text7.Text) = Adodc1.Recordset.Fields(0)) Then
        flag = 1
        Exit Do
    ElseIf (Val(Text7.Text) <> Adodc1.Recordset.Fields(0) & Adodc1.Recordset.EOF = True) Then
        flag = 0
        Adodc1.Recordset.MoveFirst
        Exit Do
    End If
    Adodc1.Recordset.MoveNext
Loop While Adodc1.Recordset.EOF = False

If (flag = 1) Then
    Label1.Caption = Adodc1.Recordset.Fields(0) 'executed when record found
    Label2.Caption = Adodc1.Recordset.Fields(1)
    Label3.Caption = Adodc1.Recordset.Fields(2)
Else
    x = MsgBox("Not Found")
End If
End Sub