Enlazar datacombos trabajando con base de datos

[yayita1502]

Primero cargás los paises al ingresar al formulario, de la siguiente manera:

strSQL="SELECT * FROM PAISES"
set resPaises = dbBase.openrecordset(strSQL,dbopentable)
do unrtil resPaises.eof
combo1.additem resPaises!NombrePais
combo1.Itemdata(combo1.NewIndex)=resPaises!IDPais
resPaises.movenext
loop
resPaises.close

Luego, cuando hacés un click sobre el combo1 se ejecuta el siguiente código:

combo2.clear
strSQL="SELECT * FROM CIUDADES WHERE IDPais="& combo1.itemdata(combo1.listindex) &""
set resCiudades = dbBase.openrecordset(strSQL,dbopentable)
do unrtil resCiudades .eof
combo2.additem resCiudades!NombrePais
combo2.Itemdata(combo2.NewIndex)=resCiudades!IDCiu dad
resCiudades.movenext
loop
resCiudades.close