Can you explain what the problem is? I don't see any connection between UI and and ADO RecordSet in your code.

>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
>

>