Looks good to me. I've no idea what could be wrong.

>The code is the same from the example,
>

>Project CapaDatos, with .prg capadatos
>
DEFINE CLASS Capadatos as Session OlePublic
>	protected miConecion
>	
>	miConecion =""
>	
>	procedure conectar
>
>	cConnString="DRIVER={MySQL ODBC 3.51 Driver};Server=localhost;option=131609;Database=jbinf;UID=root;PASSWORD=root;"
>	oConnection = createobject("adodb.connection")
>	oConnection.ConnectionString=cConnString
>	oConnection.open()
>	this.miConecion=oConnection
>	EndProc
>	Procedure CargaLista() as ADODB.RecordSet
>		oRecordSet = createobject("ADODB.Recordset")
>		oRecordset.ActiveConnection = This.miConecion
>		*oRecordSet.CursorType = adOpenStatic
>		oRecordSet.LockType = adLockOptimistic
>		oRecordSet.CursorLocation = adUseClient
>		oRecordSet.CursorType = adOpenKeySet
>		oRecordSet.Open ("select * from cliente", this.miConecion)
>		return oRecordset		
>	EndProc
>EndDefine
>
>Project CapaNegocios, with .prg capanegocios
>
>DEFINE CLASS CapaNegocios as Session OlePublic
>	Procedure ListaClientes() as ADODB.RecordSet
>		oCapaDatos = CREATEOBJECT('capadatos.capadatos')
>		oCapadatos.Conectar()
>		miListaClientes = oCapadatos.cargaLista()
>		return miListaClientes
>	EndProc
>*	Procedure ConsultaEstadoCuenta( miCliente as string ) as ADODB.RecordSet
>*	EndProc
>EndDefine
>
>MyProject
>
>Call the object
>
>ocapanegocios=createobject("capanegocios.capanegocios")  ---> Error Here ???
>miRecordset=oCapaNegocios.ListaClientes()
>thisform.processa(miRecordSet)
>thisform.Refresh

>
>
>João Batista