Erro Ao Consultar Uma Tabela No Access !

[Guest --daniloah --]

Bem...tenho uma tabela CLIENTE construida no Access e desejo consultar um registro nessa tabela

Estou utilizando a variavel RecordSet Rs e o Banco de Dados está aberto.......

Estou utilizando o seguinte código:

Dim var As String

var = InputBox("Digite nome", "Localizar")

Rs.Open "SELECT * FROM CLIENTE where cliente_nome like" + " ' " + var + " ' "

'OBS: cliente_nome é um atributo da Tabela

Essa ultima linha de código é que está dando erro !!!! qual o problema ?? Se possivel reescrevam o codigo novamente!! Obrigado!

[Guest --daniloah --]

Esse é o Procedimento que estou tentando fazer!! Qual É O ERRO ?

obs: Co é a variavel de conexão como Banco Access e ela está ativa !!!!!

Private Sub btnLocalizar_Click()

Dim var As String

var = InputBox("Digite nome", "Localizar")

Rs.Open "SELECT * FROM CLIENTE where cliente_nome like" + "'" + var + "'", Co, adOpenStatic, adLockOptimistic

If (Not Rs.EOF) Then

txtNome.Text = Rs!cliente_nome

txtCPF.Text = Rs!cliente_cpf

txtEndereco.Text = Rs!cliente_end

txtBairro.Text = Rs!cliente_bairro

txtFoneRes.Text = Rs!cliente_tel

txtCelular.Text = Rs!cliente_cel

txtEmail.Text = Rs!cliente_mail

Else

MsgBox "Cliente não encontrado!!", vbOKOnly + vbInformation, "Aviso"

End If

Rs.Close

End Sub

[Graymalkin]

Mas, qual é o problema? Ele não acha o registro? Se for, pode ser porque você não está usando o curinga (%) para procurar strings contidas em outras:

Rs.Open "SELECT * FROM cliente WHERE cliente_nome LIKE '%" & var & "%'", Co, adOpenStatic, adLockOptimistic

Tente com a linha acima e veja se dá certo.

Abraços,

Graymalkin