Para llamar a una consulta Access con parámetros de esta forma:_
Dim Cm As ADODB.Command
Set Cm = New ADODB.Command
With Cm
.ActiveConnection = Cn
.CommandType = adCmdStoredProc
.CommandText = "TuConsultaEnAccess"
.Parameters.Append .CreateParameter("PARAM1", adChar, adParamInput, 20, Valor1)
.Parameters.Append .CreateParameter("PARAM2", adChar, adParamInput, 2, Valor2)
' ...
Cm.Execute
End With
Saludos, Javier J