(Resolvido) vb x access Consulta autonumber

[Matheus-vb6]

Boa noite pessoal...

Como no tópico anterior eu consegui fazer meu banco de dados e o access se entenderem pela conexão ADO... Porem meu botao consultar não funciona no Codigo, somente nome,endereço ou telefone...

Segue o codigo:

If txtConsulta.Visible = False Then
txtConsulta.Visible = True
txtConsulta.SetFocus
Else
abrebanco
Set rsDados = New Recordset
rsDados.Open "SELECT * FROM pessoal WHERE Codigo='" & Trim(txtConsulta.Text) & "'", cn
txtConsulta.Text = rsDados("Codigo")
txtNome.Text = rsDados("Nome")
txtEnd.Text = rsDados("Endereço")
txtFone.Text = rsDados("Telefone")
fechabanco
End If

Esse trim eu peguei na internet, mas não funcionou!

Se puderem me explicar o erro eu agredeço:

run-time error '-2147217913 (80040e07)':

Tipo de dados imcompativel na expressão do critério.

O incompativel esta escrito dessa forma mesmo, erro ortografico no vb kkk..

Abraços

Editado Agosto 22, 2010 por Matheus-vb6

[kuroi]

matheus, quando o campo for numerico (o q inclui o tipo autonumeracao), não use aspa simples no select.

[Matheus-vb6]

oO, q facinho.

Resolvido aqui, vlw mais uma vez!