ComboBox ke devuelva indice de BD

[netorres]

Mira deje el codigo de esta forma:

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_ID"
DataCombo.BoundColumn = "id_registro"
RsetDatos.Close
End Function


Pero ahora me marca la otra linea y de dice
error 13 en el tiempo de ejecucion los tipos no coinciden