Private Sub Form_Activate()
With CARRERAS.Recordset
.MoveFirst
Do While Not .EOF
   List1.AddItem .Fields("NOMBRE_CARRERA")
.MoveNext
Loop
End With
End Sub



Private Sub List2_Click()
List3.Clear
'Obtener rut del alumno a mostrar
With ALUMNOS.Recordset
    .MoveFirst
    Do While Not .EOF
    If List2.Text = .Fields("NOMBRE") Then
        rutAlumno = .Fields("RUT").Value
    End If
    .MoveNext
    Loop
End With
'mostrar datos
Text1.Text = rutAlumno 'rut
Text2.Text = List2.Text 'Nombre

Dim ramo As Integer
'Ramos

With RAMOS_ASIGNADOS.Recordset
    .MoveFirst
    Do While Not .EOF
        If .Fields("RUT_ALUMNO") = rutAlumno Then
            ramo = .Fields("COD_ASIGNATURA").Value
                With ASIGNATURAS.Recordset
                    .MoveFirst
                    Do While Not .EOF
                        If ramo = .Fields("COD_ASIGNATURA").Value Then
                            List3.AddItem .Fields("NOMBRE_ASIGNATURA").Value
                        End If
                    .MoveNext
                    Loop
                End With
        End If
    .MoveNext
    Loop
End With
End Sub