Pessoal, estou tendo problemas para fazer uma pesquisa usando ADO.
Abri a conexão no load do Form, por isso a linha :
If rs.State = 1 Then
    rs.Close
Estou tentando assim:
Dim Pesquisa As String
If rs.State = 1 Then
    rs.Close
End If
    lblSaldo.Visible = True
    lblSaldo2.Visible = True
    Pesquisa = InputBox("Informe o Nome:")
    rs.CursorLocation = adUseClient
    rs.Open "select * from Clientes Where Nome Like '*" & Pesquisa & "*'", DB, adOpenStatic, adLockOptimistic
    Do While rs.EOF = False
               txtNome.Text = rs.Fields(0)
               txtEndereco.Text = rs.Fields(1)
               txtBairro.Text = rs.Fields(2)
               txtTelefone.Text = rs.Fields(3)
               txtCidade.Text = rs.Fields(4)
               txtNascimento.Text = rs.Fields(5)
               txtRG.Text = rs.Fields(6)
               txtCPF.Text = rs.Fields(7)
               txt.Email.Text = rs.Fields(8)
    Loop
    If DadosClientes.Recordset.NoMatch = True Then
        MsgBox "Registro não encontrado na Base de Dados!"
    End If
Alguém saberia me responder o que tem de errado?

Abraços...

Junior Mascioli