Dim str As String
str = InputBox("Digite o codigo ou nome da conta")
Adodc1.RecordSource = ""
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * from contas where   codconta= ' " & Trim(str) & ' "
Adodc1.Refresh

Estou consultando um codigo automatico através da Auto Numeração mas esta dando

erro..

 

Alguem pode ajudar?

 

Obrigado

 

Olá amigo,

Poderia explicar um pouco melhor sua situação.

Essa instrução SQL nesse caso seria:

 

"Select * from contas where   codconta=" & Trim(Str)

 

+ primeiro vc precisar ver se vai pesquisar por codigo(num) ou por nome(txt), pra montar a instrução.

 

t+

 

- Eriston