Sergey,

Sorry, this is from my other 'Test', my problem now is, i can get the RS but i can´t pass it to the UI.

I call it like this in my Form

Load::Method

.oRS0     = createobject('ADODB.RecordSet')
SET ClassLib TO Clientes, Layers
.oCliente     = CreateObject('Ficha_Clientes', 'DataClass')

Button::Click

llOK=.oCliente.lst_vendas_cliente(.oRS0, lcParam, "usr_sp_Clientes")

Ficha_Clientes::lst_vendas_cliente

lparameters toRS, tcPar, tcStoredProc
LOCAL lOK
llOK = .oData.GetStoredProcRecordSet(toRS, tcPar, tcStoredProc)

oData.GetStoredProcRecordSet::Method
Lparameters toRS, tcParam, tcStoredProc
   .SetCommandProperties(tcStoredProc)
   WITH .oCommand
	.Parameters("@Param1").Value=tcParam
	toRs=.Execute
   ENDWITH

João Batista

>In this case what following code is for?
> toRS.ActiveConnection = .oConnection
> toRS.Source=tcTabela
> .SetRecordSetProperties(toRS)
> toRS.Open