Consulta SQL no excel VBA

[Rafaeljuni0.ti]

alguém saberia me dizer onde ta o erro nesse codigo ( mas precisamente na linha da instrução SQL)

estou tentando exibir na planilha (Relatorio) excel um unico registro de uma consulta Cons_geral...ira somente mostra o registro onde o campo item for igual ao que o usuario

digitar no textbox

Private Sub btn_exibir_porCod_Click()

Dim cn As New ADODB.Connection

Dim Rs As New ADODB.Recordset

'Dim codigo As String

' codigo = Txt_ConsPorCod.Value

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\MEUBANCO.mdb;"

cn.CursorLocation = adUseClient

cn.Open

' Cons_geral é um consulta do meu banco

Set Rs = cn.Execute("SELECT * FROM Cons_geral WHERE (((Cons_geral.[item])= '& codigo ' ));")

' preenche o cabeçalho do relatorio

Plan3.Range("A1").Value = (" Relatorio ")

Plan3.Range("A2").Value = ("Todos os Itens Com Problemas")

' Vai para a planilha onde o relatorio sera mostrado

Worksheets("Relatorio").Select

Range("A6").Select

' preenshe as a planilha com a consulta entre D6 e J6

Plan3.Range("A6, G6").Select

Plan3.Range("A6, G6").CopyFromRecordset Rs

cn.Close

Set Rs = Nothing

End Sub

o campo item da consulta geral é texto ( Apesar de ser numero estar definido no banco como texto)

mas tentei também declarando com integer variant e etc e não deu certo

Editado Janeiro 13, 2012 por Rafaeljuni0.ti