RE:ADO y consultas almacenadas
checate este codigo, a ver si te sirve
Set cnnCli = New ADODB.Connection
Set rstCli = New ADODB.Recordset
xnombre = "'" & cadena & "'"
rstCli.CursorLocation = adUseClient
Pon_espera (True)
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