ComboBox ke devuelva indice de BD

[netorres]

Modifique el codigo he hice una nueva funcion

Public Function verdatacombo()

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"
Set RsetDatos = VarConexion.OpenRecordset(cadena_conexion)
Set DataCombo.RowSource = RsetDatos
DataCombo.ListField = "TIPPRO_ID"
DataCombo.BoundColumn = "id_registro"
RsetDatos.Close
End Function


Me dice que:
"error '13' en el tiempo de ejecucion
no coinciden los tipo "
y me deja marcado lo del color amarillo...

Se me ocurrio cambiar la linea:

DataCombo.ListField = "TIPPRO_ID"
DataCombo.BoundColumn = "id_registro"

por :

DataCombo.ListField = !TIPPRO_ID
DataCombo.BoundColumn = !PRO_NOMBRE

suponiendo que tenia algo que ver con los datos que estaba ingresando pero me sale otro error.. que dice "referencia no valido o por calificar"... entonces pienso que ando muy perdida... si me puedes ayudar