ComboBox ke devuelva indice de BD

[netorres]

hola aqui creo que esta lo que me pides, lo del recordset, pero lo tengo dentro de la funcion en la que busco los elementos para adjuntarlos al combobox

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)

With RsetDatos
Do While Not .EOF
intcontador = intcontador + 1
If intcontador = .RecordCount Then
Exit Do
End If
cbotipopro.AddItem !TIPPRO_NOMBRE
.MoveNext
Loop
End With
RsetDatos.Close
End Function

No se si entiendes, en reliadad primera vez que programo en visual y ando media perdia si hice algo mal, o esta mal declarado???.
pero al ejecutar el codigo me funciona el comboBox, pero como te dije kiero saber como terner conocimiento del ID del producto selecionado el cual debe ser el que esta en la BD.

Este codigo es lo que hice para el combobox, como tendría que ser para un dataBox??