llenar 2 combos

[tazzito]

haber por lo que entiendo... (de memoria)

primero cargas un combo (ej. ciudades)
dim cnn as adodb.conection, mirst as adodb.recordset
set cnn=new adodb.conection
set mirst=new adodb.recordset
with cnn
.conectionstring=cadenaconexion
.open
end with
mirst.open "select codigo, nombre from ciudad order by nombre", cnn

do until mirst.eof
combociudades.additem mirst!nombre
combociudades.itemdata(combociudades.newitem)=mirs t!codigo
mirst.movenext
loop
mirst.close
cnn.close
set mirst=nothing
set cnn=nothing

y en el evento click del combo ciudades


cmbcomunas.clear
if cmbciudades.listindex<0 then exit sub

dim cnn as adodb.conection, mirst as adodb.recordset
set cnn=new adodb.conection
set mirst=new adodb.recordset
with cnn
.conectionstring=cadenaconexion
.open
end with
mirst.open "select codigo, nombre from comunas where codciudad=" & trim(cmbciudades.itemdata(cmbciudades.listindex)) & " order by nombre", cnn

do until mirst.eof
cmbcomunas.additem mirst!nombre
cmbcomunas.itemdata(cmbcomunas.newitem)=mirst!codi go
mirst.movenext
loop
mirst.close
cnn.close
set mirst=nothing
set cnn=nothing