Consulta no Access através do Excel

Bom dia galera

Eu tenho um certo conhecimento avançado no excel usando o VBA, porem agora me surgiu uma nova necessidade urgente aonde eu utilizarei o Access como banco de dados. A minha duvida é, como eu consigo realizar uma consulta aleatório no Access, através de um formulario que esta no excel e essas informações virem para alguma células especificas na minha planilha do excel que estão vinculadas com alguns campos do formulario?

procurei aqui no forum, porem não encontrei nenhum que me atendesse dessa maneira, caso tenha alguém poderia me indicar por gentileza?

obrigado e bom fim de semana a todos.

Boa tarde Hugo, seja bem vindo colega.

De uma olhada neste link pra ver se clareia suas ideias


http://social.msdn.microsoft.com/Forums/pt-BR/vbapt/thread/a7756165-094b-47b2-b0c8-745546a6b60d

Fernando, obrigado até me ajuda para fazer a consulta, porem eu não consegui encaixar o valor que eu gostaria que ele consultasse, por exemplo, o meu usuario vai escolher em uma janela tipo o valor do filtro, ai eu não consegui que o código entenda essa seleção pra fazer a consulta no Access e dps me retornar o valor em determinado local. segue código

Private Sub ADO_ACCDB()

Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection

Dim strDB As String
Dim strSQL As String

var_regional = SPI1

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

strDB = ThisWorkbook.Path & "\backlogOs.mdb"
cn.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & strDB & ";"
cn.Open

strSQL = _
"SELECT [backlogOS].OPERACAO, [backlogOS].CONTRATO, [backlogOS].COD_OS " & _
"FROM [backlogOS] " & _
"WHERE [backlogOS].REGIONAL = " & var_regional & ""

Set rs = cn.Execute(strSQL)

If rs.RecordCount > 0 Then
Do While Not rs.EOF
rec_operacao = rs.Fields("OPERACAO")
rec_contrato = rs.Fields("CONTRATO")
rec_cod_os = rs.Fields("COD_OS")

MsgBox "&rec_operacao& é " & rec_contrato & rec_cod_os, vbInformation, "Teste de consulta"

rs.MoveNext
Loop
End If

rs.Close
cn.Close

End Sub