[Resolvido] Conexão e Consulta em ACCESS

Boa tarde pessoal;

Minha dúvida é simples, mas não estou conseguindo, pesquisei em alguns lugares, e por fim estou fazendo deste jeito

.

.

.

Private Sub cmdConsultar_Click()
intCodigo = InputBox("Digite o Código", "Consulta")
With Adodc1
.Visible = False
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Apariciofer\Desktop\lu\Programa\bd_lu.mdb;Persist Security Info=False"

 .RecordSource = "select * from tbl_cliente where cod_cliente='intcod'"

 .EOFAction = adDoMoveLast
 .Mode = adModeReadWrite
 ' .Refresh

End With

End Sub..

.

Basicamente, eu digito o código do cliente em uma Input

e gostaria que aparece nos campos... o resto dos dados desse cliente...

mas de todos os tutoriais que achei, não consegui seguir nenhum, pois sempre dá um erro do tipo

"conexao nao pode ser usada para realizar esta operação. ela está fechada ou é invalida neste context"

alguem pode me ajudar?

como eu faço para apresentar as informações que puxei nos campos ?!