PROBLEMAS COM PESQUISA EM ADO

USUARIO.EXCLUIDOS 28/03/2004 19:15:39
#17363
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
USUARIO.EXCLUIDOS 28/03/2004 21:07:25
#17364
Resposta escolhida
O ADO Não usa a máscara * e sim % ok.
Tópico encerrado , respostas não são mais permitidas