ComboBox ke devuelva indice de BD

[netorres]

hola...
Esta es mi coneccion a la BD

Private VarWks As Workspace
Private VarConexion As Connection


Private Function conectbd()
Set VarWks = CreateWorkspace("", "", "", dbUseODBC)
Set VarConexion = VarWks.OpenConnection("coneccionodbc", , , "ODBC;DATABASE=prueba1;UID=;PWD=;DSN=coneccionodbc ")
' la coneccion esta realizada en base a la BD llama escuela
End Function

Private Sub Form_Load()
MSFlexGrid1.TextMatrix(0, 0) = "Cantidad"
MSFlexGrid1.TextMatrix(0, 1) = "Detalle"
MSFlexGrid1.TextMatrix(0, 2) = "precio"
MSFlexGrid1.ColWidth(0) = 1000
MSFlexGrid1.ColWidth(1) = 4000
MSFlexGrid1.ColWidth(2) = 1000
MSFlexGrid1.ColWidth(3) = 1000
BusTipoPro
End Sub



Como veras tengo un MSFlexGrid el cual le esty especificando algunos valores
Solo eso tengo ademas de la llamada a la funcion que hice para que me agregara los datos de la BD al combobox

Ocupo la coneccion por -> DAO 3.51
No se si necesitas algo mas... yo trataré ahora de entender un DataCombo