bueno tendrías que agregar esto a tu codigo despues de agregar un DataCombo con el mismo nombre
Código:
Set DataCombo.RowSource = RsetDatos
DataCombo.ListField = "TIPPRO_ID"
DataCombo.BoundColumn = "id_registro"
para que te quede algo asi..
Código:
Private Function BusTipoPro()
conectbd ' funcion de conexion
Dim RsetDatos As Recordset
Dim cadena_conexion As String
Dim intcontador As Integer
'sentencias sql
cadena_conexion = "select TIPPRO_NOMBRE,TIPPRO_ID from TIPO_PRODUCTO"
'cadena_conexion = "select tippro_nombre,tippro_id from tipo_producto where subtippro_id= 2 "
Set RsetDatos = VarConexion.OpenRecordset(cadena_conexion)
Set DataCombo.RowSource = RsetDatos
DataCombo.ListField = "TIPPRO_ID"
DataCombo.BoundColumn = "id_registro"
RsetDatos.Close
End Function
espero te sirva el codigo.
nos vemos..