umm deberias poner el codigo para er qonda con esto
asi le paso un parametro a un recordset de ado no se si te sirva
rs_lista.Open "exec
xochitemol '"
& nombre_param & "'", ADO_Cn, adOpenDynamic, adLockBatchOptimistic
xochitemol =nombre store procedure
nombre_param= nombre o valor del parametro
