Hola!!
Revisa el CODE y nos cuentas:
Código vb:
Ver originalAdodc1.Recordset.MoveFirst
dato = InputBox("INGRESE LA MATRÍCULA A BUSCAR :", "BUSQUEDA")
If dato = "" Then Exit Sub
Adodc1.Recordset.Find ("matricula=" + "'" + dato + "'")
If Adodc1.Recordset.EOF Then
MsgBox "LA MATRÍCULA QUE INGRESO NO EXISTE, POR FAVOR INTENTELO DE NUEVO", 64, "AVISO"
Adodc1.Recordset.MoveFirst
Exit Sub
End If
'CARGAR LA IMAGEN, YA QUE SE ENCONTRO EL REGISTRO
Image1.Picture = LoadPicture(Label20.Caption)
'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