ComboBox ke devuelva indice de BD

[netorres]

Tengio otra duda he revisado que casi todos los datacombo ocupan
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

With DataCombo1
Set .RowSource = rst
.BoundColumn = "Nombre"
' Seleccionamos el campo para que se rellene el DataCombo
.ListField = "Nombre"
.DataField = "Nombre"

' Establecer el origen de datos para que el
' control DataCombo muestre el primer registro
Set .DataSource = rst
End With


Yo tengo otro tipo de conexion Alquien me podria expliacar por que.... por lo que pienso que mi tipo de cenexion que es:



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


No funcionaria bien....