Busqueda desde excel 2003 a access 2003

¿Tenés alguna idea de Query?
La verdad que te doy "la idea" porque para hacerlo hay que estar con la info en la máquina.
Desde el Excel, andá al menú Datos > Obtener datos externos > Nueva consulta de base de datos
En "Origen" elegí Access y a partir de allí andá siguiendo los pasos que te de

Gustavo,
Gracias por tu apoyo, pero eso ya lo efectué, pero lo que deseo es que una macro, llame datos desde una tabla access a partir de una celda, es decir, en la celda a1 o a2 escribo un código y que la macro lo busque en mi tabla.
Te adjunto lo que efectué, pero me marca error.
---------------
Sub BUSQUEDA()
Dim codigo As String
codigo = Range("D2")
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=d:\consultas\Base2007.mdb;DefaultDir==D:\consultas\;DriverId=25;FIL=MS Access;MaxBufferSize=2048;P" _
), Array("ageTimeout=5;")), Destination:=Range("A10"))
.CommandText = Array( _
"SELECT Base_2007.`RUT`, Base_2007.NOMBRE, Consultas_2007.FNAC, Base_2007.Vendedor" _
, _
"DO" & Chr(13) & "" & Chr(10) & "FROM `D:\consultas\Base2007`.Base_2007 Base_2007" & Chr(13) & "" & Chr(10) & "WHERE (Base_2007.`RUT`= codigo)" _
)
.Name = "Consulta desde MS Access Database"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
Range("A1").Select
End Sub
Te agradeceré me indiques si tienes idea que me ayude a solucionar esta búsqueda.
Saludos,
Igor