Consulta sencilla en VB

Private Sub CmdBuscar_Click()
  crit = InputBox("Ingrese", "Buscar")
    If Trim(crit) = "" Then
        Exit Sub
    End If
        criterio = "[nombre] like '"
        criterio = criterio & Trim(crit) & "*'"
        Data1.Recordset.FindFirst criterio
        msje = MsgBox("¿Lo encontro?", vbYesNo + vbInformation)
        '7 = no
        If vbyes = 7 Then
         'tambien probe poniendo if msje = 7
            Do Until Data1.Recordset.EOF Or vbYes = 6
               Data1.Recordset.FindNext criterio
            Loop
        End If
    Exit Sub

Private Sub CmdBuscar_Click()
  crit = InputBox("Ingrese", "Buscar")
    If Not Trim(crit) = Empty Then
        criterio = "[nombre] like '"  & Trim(crit) & "*'"
        Data1.Recordset.FindFirst criterio
        Do While Not Data1.Recordset.EOF
               If MsgBox("¿Lo encontro?", vbYesNo + vbInformation) = vbNo Then  
                    Data1.Recordset.FindNext criterio
               Else
                    'No se a que variable le asignaras los resultados encotrados hacelo aca
                    Data1.Recordset.EOF = True
               End If
            Loop
        End If
End Sub 

 If Text.text = "" Then
               Exit sub
      Else
              DoEvents
      End If 

 If NotText.text = Empty Then
              DoEvents
       End If 

 If MsgBox("¿Lo encontro?", vbYesNo + vbInformation) = vbNo Then   

 SI MSBOX = NO ENTONCES 
        ASIGNAR BUSQUEDA A VARIABLES O HACER LO QUE VOS QUERIAS
   SINO (ELSE)
        BUSCAR SIGUIENTE
        BUSQUEDA.EOF (End of File) = True
   FINALIZAR SI... 

      Data1.Recordset.EOF = True
 

         Do While Not Data1.Recordset.EOF

         Do While Not Data1.Recordset.EOF  ----> If Not  Data1.Recordset.EOF = True Then 

rivate Function CargarGrilla()
    Dim Cade As String
    Cade = "1234567890"
        If OptCodId.Value = True Then
            If txtOpcion = "" Then
                StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, Fecha de Alta from Personas"
            Else
                If InStr(Cade, Right(Me.txtOpcion, 1)) <> 0 Then
                    StrSql = "Select id, Nombre, Apellido, Telefono,Direccion, Fecha de Alta from Personas" & Me.txtOpcion.Text
                Else
                    MsgBox "El codigo de cliente solo puede ser numérico", vbInformation, "RMC Systems"
                    txtOpcion = ""
                    txtOpcion.SetFocus
                End If
            End If
        
        If OptApe.Value = True Then
            If txtOpcion = "" Then
                StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, Fecha de Alta from Personas"
            Else
                StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, Fecha de Alta from personas where apellido like '%" & txtOpcion.Text & "%'"
                'MsgBox StrSql
            End If
        End If
        If OptNom.Value = True Then
                 StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, Fecha de Alta from personas where fechahora like '" & Fecha & "%'"
        End If
        If OptTel.Value = True Then
                 StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, Fecha de Alta from personas where Telefono like '" & txtOpcion.Text & "%'"
    End If
    End If
    'MsgBox StrSql
    rs.Open
    grilla.Clear
    grilla.Rows = 1
    grilla.FormatString = "ID     | Nombre                               |Apellido                                                          | Teléfono                                  | Direccion                                                             | Fecha de Alta       "
    Do While Not rs.EOF
        grilla.AddItem rs!id & vbTab & rs!Nombre & vbTab & rs!Apellido & vbTab & rs!Telefono & vbTab & rs!Direccion & vbTab & rs!Fecha_de_Alta
        rs.MoveNext
    Loop
    rs.Close
    
End Function

rs.open ......

rs.Open StrSql, cn, adOpenDynamic, adLockOptimistic

Private Sub OptDatos(Index As Integer)

End Sub 

Private Function CargarGrilla(Index As Integer)
    Dim Cade As String
    Cade = "1234567890"
    Select Case Index
        Case 0
            If txtOpcion = Empty Then
                StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, Fecha de Alta from Personas"
            Else
                If Not IsNumeric(Me.txtOpcion) Then
                    StrSql = "Select id, Nombre, Apellido, Telefono,Direccion, Fecha de Alta from Personas" & Me.txtOpcion.Text
                Else
                    MsgBox "El codigo de cliente solo puede ser numérico", vbInformation, "RMC Systems"
                    txtOpcion = Empty
                    txtOpcion.SetFocus
                End If
            End If
        Case 1
            If txtOpcion = Empty Then
                StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, Fecha de Alta from Personas"
            Else
                StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, Fecha de Alta from personas where apellido like '%" & txtOpcion.Text & "%'"
            End If
        Case 2
                 'StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, Fecha de Alta from personas where fechahora like '" & Fecha & "%'"
                 StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, Fecha de Alta from personas where Nombre='" & Nombre.Text & "'"
        Case 3
                 StrSql = "Select id, Nombre, Apellido, Telefono, Direccion, Fecha de Alta from personas where Telefono ='" & txtOpcion.Text & "'"
    End Select
    rs.Open StrSql, Cn, adOpenDynamic, adLockReadOnly
    grilla.Clear
    grilla.Rows = 1
    grilla.FormatString = "ID     | Nombre                               |Apellido                                                          | Teléfono                                  | Direccion                                                             | Fecha de Alta       "
    Do While Not rs.EOF
        grilla.AddItem rs!id & vbTab & rs!Nombre & vbTab & rs!Apellido & vbTab & rs!Telefono & vbTab & rs!Direccion & vbTab & rs!Fecha_de_Alta
        rs.MoveNext
    Loop
    rs.Close
End Function 

                If Not IsNumeric(Me.txtOpcion) Then 

Dim AAA As String
Text1.Text = "123456"
AAA= IsNumeric(Text1)

                If Not IsNumeric(Me.txtOpcion) = True Then 

 If InStr(Cade, Right(Me.txtOpcion, 1)) <> 0 Then 

        Cade = "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
        If Not InStr(Cade, Trim(Me.txtOpcion)) = 0 Then 

Private Function CargarGrilla(Index As Integer)

Private Sub Command1_Click()
     CargarGrilla 1
End Sub 

Private Sub Command2_Click()
     Dim i As Byte
     For i = 1 To OptDatos.Count
         If OptDatos = True Then CargarGrilla i
     Next i
End Sub 

rs.Open StrSql, cn, adOpenDynamic, adLockOptimistic

 If InStr(Cade, Right(Me.txtOpcion, 1)) <> 0 Then