Que tal:
Mira te envio un ejemplo de como lo hago:
Set cnnCli = New ADODB.Connection
Set rstCli = New ADODB.Recordset
rstCli.CursorLocation = adUseClient
ruta_base = "C:\BASES"
Nombre_BD = "BASE.MDB"
cnnCli.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta_base & Nombre_BD & ";Persist Security Info=False"
cnnCli.Open
strConsulta = "SELECT TRAMITES.NumPer, TRAMITES.folio, TRAMITES.NumRel, TRAMITES.Fch_Rcb, TRAMITES.ULT_UBIC, TRAMITES.NumCuad, TRAM_MOTIVO.descripcion, PLAZAS.CvePlz, SINDICATOS.nombre FROM (((TRAMITES INNER JOIN TRAM_MOTIVO ON (TRAMITES.Motivo = TRAM_MOTIVO.motivo) AND (TRAMITES.Tramite = TRAM_MOTIVO.tramite)) INNER JOIN PLAZAS ON (TRAMITES.NumPlz = PLAZAS.NumPlz) AND (TRAMITES.NumPer = PLAZAS.NumPer)) INNER JOIN SINDICATOS ON PLAZAS.Sindicato = SINDICATOS.sindicato) INNER JOIN PERSONAL ON TRAMITES.NumPer = PERSONAL.numper WHERE (((PERSONAL.nomper)= " & xnombre & "))"
rstCli.Open strConsulta, cnnCli, adOpenDynamic, adLockReadOnly
Set DataGrid1.DataSource = rstCli
Espero que esto te ayude. Saludos.
N
