Ya lo solucione este es el código:
Código:
CAPA DATOS
Public Function CargarGrilla() As ADODB.Recordset
Dim rs As ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT cliCodigo AS Código, cliRazonSocial AS [Razón Social] FROM Cliente"
Set rs = New ADODB.Recordset
rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
Set CargarGrilla = rs
End Function
En esta capa hay que referenciar BindingCollection
CAPA LOGICA
Option Explicit
Dim objClienteCD As New clsClienteAD
Public objDetalle As BindingCollection
Public Sub CargarGrilla()
Set objDetalle = New BindingCollection
Set objDetalle.DataSource = objClienteCD.CargarGrilla
End Sub
CAPA PRESENTACION(FORMULARIOS)
Private Sub Form_Load()
Set objClienteCL = New clsClienteCL
objClienteCL.CargarGrilla
Set flex.DataSource = objClienteCL.objDetalle.DataSource
FormatoFlex flex
End Sub