ComboBox ke devuelva indice de BD

[netorres]

Tengo el ID, pero estaba viendo, sabes mis números no son correlativos.

Me explico estaba viendo en otras páginas para guiarme, pero veo que tiene que ser de esta forma empezar con un 0 (cero) y ser correlativos 1,2,3,4,5,6...

Mi Bd tiene productos con ID pero estos se muestran depediendo de alguna especificacion por ejemplo:

id producto
1 zapato
2 sandalia
3 camisa manga corta
4 camisa manga larga
5 polera blanca
6 polera roja
7 polera azul

Por ejemplo si yo elijo mostrar poleras, en el comboBox deberia desplegar
polera blanca
polera roja
polera azul

y que si yo elijo dependiendo de lo selecionado sepa si el ID de lo selecionado es (5 ó 6 ó 7)


No se si se entiende :(

Nota:

Este es el codigo

Private Function BusTipoPro()
conectbd
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