hola uso el programa visual basic 6.0 con base de datos access y tipo de coneccion (ADO = ActiveX Data Objects)
La base de datos de llamas: datos
La tabla: personas
Campo: nombres
La idea es que cargue el campo "nombres" en el combo1
Codigo:
Option Explicit
Public cn As ADODB.Connection
Public rst As ADODB.Recordset
Sub Conectar()
' Crea una nueva conexión y un recordset
Set cn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
rst.CursorLocation = adUseClient
' abre la base de datos
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\datos.mdb" & ";Persist Security Info=False"
End Sub
Sub Desconectar()
rst.Close
cn.Close
Set rst = Nothing
Set cn = Nothing
End Sub
' A partir desde aqui no funciona el codigo
Private Sub Form_Load()
Call Conectar
' abre el recordset
rst.Open "Select * from empleados, cn, adOpenStatic, adLockOptimistic"
' Muestra los datos en el FlexGrid
Set Combo1.DataSource = rst
Set Combo1.DataMember= rst
End Sub
Saludos