Tienes los COMBOS enlazados con el ADO_CONTROL, o los llenas en el FORM_LOAD?
Si los llenas en el FORM_LOAD()
Código vb:
Ver originalCOMBO_GENERO.CLEAR
COMBO_GENERO.ADDITEM "FEMENINO"
COMBO_GENERO.ADDITEM "MASCULINO"
COMBO_NIVEL_ESCOLAR.CLEAR
COMBO_NIVEL_ESCOLAR.ADDITEM "PREESCOLAR"
COMBO_NIVEL_ESCOLAR.ADDITEM "BASICO"
COMBO_NIVEL_ESCOLAR.ADDITEM "UNIVERSITARIO"
Entonces, en tu codigo:
Código vb:
Ver original'LOS COMBOS DEBEN ESTAR LLENOS
'ASUMO QUE EL PRIMER ITEM DEL COMBO_GENERO ES "FEMENINO"
If UCase(Adodc1.Recordset("GENERO")) = "FEMENINO" Then COMBO_GENERO.ListIndex =0
If UCase(Adodc1.Recordset("GENERO")) = "MASCULINO" Then COMBO_GENERO.ListIndex =1
'ASUMO QUE EL PRIMER ITEM DEL COMBO_NIVEL_ESCOLAR ES "PREESCOLAR"
If UCase(Adodc1.Recordset("NIVELE")) = "PREESCOLAR" Then COMBO_NIVEL_ESCOLAR.ListIndex =0
If UCase(Adodc1.Recordset("NIVELE")) = "BASICO" Then COMBO_NIVEL_ESCOLAR.ListIndex =1
If UCase(Adodc1.Recordset("NIVELE")) = "UNIVERSITARIO" Then COMBO_NIVEL_ESCOLAR.ListIndex =2
Si estan enlazados con el ADO_CONTROL, los COMBO deben estar en ESTILO = 0 - DROPDOWN COMBO.