Programación Capas vb6.0

[minimainor_austin]

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