Programación Capas vb6.0

[minimainor_austin]

Hola, una consulta estoy haciendo un mantenimiento a una tabla pero tengo que hacerlo en capas se me presento el siguiente problema quiero cargar un hiericalflexgrid con datos que estan en mi DB la consulta para cargar la grilla la tengo en la capaDatos pero no puedo llamar al metodo desde la capaLogica me da error en mi capaPresentación donde llamo a ese metodo desde el formulario a la capaLogica les muestro 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

CAPA LOGICA
Public Function CargarGrilla()
  objClienteCD.CargarGrilla
End Function

CAPA PRESENTACION(FORMULARIOS)
Private Sub Form_Load()
  Set flex.DataSource = objClienteCL.CargarGrilla ==> VARIABLE DE TIPO OBJECT O VARIABLE DE BLOQUE WITH NO EESTA ESTABLECIDA. 
  FormatoFlex flex
End Sub

si alguien me puede indicar que estoy haciendo mal se lo agradecería
Pedro.

[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