oCA = CreateObject("CATest") oCA.CursorFill() Browse DEFINE CLASS CATest AS cursoradapter CursorSchema = "" Alias = "cursor1" DataSourceType = "ODBC" PROCEDURE Init set multilocks on This.DataSource = sqlstringconnect([dsn=SeuDSN;]) This.SelectCmd = [EXEC SuaSP 'SeuParametro'] ENDPROC ENDDEFINEobviamente, substitua a string de conexão, nome da SP, e parâmetros, de acordo com seu cenário.