StoreProc: CREATE PROCEDURE usr_sp_lstVendasCliente @Param1 nvarchar(5) AS Select * From tbl_gc_DocumentosLinTer Where c_cod_ter = @Param1 order by c_num_doc GO Program Code: toRS.ActiveConnection = .oConnection toRS.Source=tcTabela .SetRecordSetProperties(toRS) toRS.Open .SetCommandProperties(tcStoredProc) .oCommand.Parameters("@param1").Value=tcparam toRs=.oCommand.ExecuteJoão Batista