Tio acabo de ejecutar tu codigo y si funciona creo que te olvidaste declarar el recordset
Código:
Public rs As New Recordset
Y no veo la conexion a la base de datos, solo se ve esto
Código:
Ocnn.CursorLocation = adUseClient
El codigo de aqui si funciona, te falto declarar la variable rs
Código:
Public Ocnn As New Connection
Public rs As New Recordset
Sub CargarFlex(flex As MSHFlexGrid)
Set flex.DataSource = rs 'AQUI ME MARCA EL ERROR
With flex
.ColWidth(0) = 800
.ColWidth(1) = 1500
.ColWidth(2) = 1500
.ColWidth(3) = 1200
.ColWidth(4) = 2450
.ColWidth(5) = 2000
.ColAlignmentFixed(0) = 1
.ColAlignment(0) = 1
.ColAlignmentFixed(5) = 8
.ColAlignment(5) = 8
End With
End Sub
Private Sub CmdDetallesTik_Click()
'CONEXION A LA BASE DE DATOS
Ocnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SYSTEM_DB_01.mdb;Password=;Persist Security Info=false"
'abre la conexion
Ocnn.CursorLocation = adUseClient
'carga el recorset con todos los datos
Dim Carga As String
Carga = "Select *" & _
"From producto"
rs.Open Carga, Ocnn, adOpenDynamic, adLockOptimistic
'llena flex
Call CargarFlex(flex)
End Sub
No te olvides agregar la referencia Microsoft activeX data object 2.1 library