Milenna
18 de Enero del 2005

tengo el siguiente codigo con el cual estoy trabajando:
Private Function conectbd()
Set VarWks = CreateWorkspace("", "", "", dbUseODBC)
Set VarConexion = VarWks.OpenConnection("coneccionodbc", , , "ODBC;DATABASE=prueba1;UID=;PWD=;DSN=coneccionodbc")
' la coneccion esta realizada en base a la BD llama escuela
End Function
Public Function verdatacombo()
conectbd ' funcion de conexion
Dim RsetDatos As Recordset
Dim cadena_conexion As String
Dim intcontador As Integer
cadena_conexion = "select TIPPRO_ID,TIPPRO_NOMBRE from TIPO_PRODUCTO"
Set RsetDatos = VarConexion.OpenRecordset(cadena_conexion)
Set DataCombo.DataSource = RsetDatos
Set DataCombo.RowSource = RsetDatos
DataCombo.ListField = "TIPPRO_NOMBRE"
DataCombo.BoundColumn = "TIPPRO_ID"
RsetDatos.Close
End Function
Private Sub Form_Load()
verdatacombo
End Sub

Pero me dice que tengo un error '424' error en tiempo de ejecucion y me deja marcada la sigiente linea

Set DataCombo.DataSource = RsetDatos



que peude ser???
ocupo conecion DAO 3.51

mvallejos
18 de Enero del 2005

El error 424 es 'Se requiere un objeto' y no tiene nada que ver con la conexión y las librerías.

Verifica que estés llamando a los controles con el nombre correcto.

Saludos