Enlazar 3 Combobox con datos relacionados VB y Access

[Tet]

Hola a todos!

Mi problema es el siguiente:

Estoy realizando un proyecto sobre un instituto en visual b. con conexión access
Tengo un formulario (SSTab - 1 solo formulario con pestañas ) y mi problema es el siguiente: Quiero enlazar los datos de 3 combos. El 1r Combo me tendría que mostrar los alumnos del centro, el 2º el ciclo formativo que realiza y el 3º el credito que esta cursando.
He conseguido que me muestre los datos del 1r y 2º combo con el GotFocus pero no se como relacionarlos para que al pulsar el 1º -alumnos- me muestre los datos del 2º-ciclo- y entonces dependiendo de lo selecionado els los otros 2 , en el 3º me muestre los creditos del alumno de ese ciclo. Una vez mostrado, dependiendo del credito elegido, ( Ej: c4, c6, c9 ) me mostrase la nota en un textbox
Te paso el codigo que pongo para rellenar los dos primeros combos:

Private Sub cmbnotes_alumne_GotFocus()
notes = cmbnotes_alumne.Text
cicles = cmbnotes_cicle.Text
cmbnotes_alumne.Clear
cmbcodi_cicle.Clear

rs_a.MoveFirst

Do While Not rs_a.EOF
If notes <> rs_a!cognoms_nom Then
cmbnotes_alumne.AddItem rs_a!cognoms_nom
cmbnotes_cicle.AddItem rs_a!codi_cicle
End If
rs_a.MoveNext
Loop
cmbnotes_alumne.Text = notes
notes = cmbnotes_cicle.Text
cmbnotes_alumne.Clear
cmbnotes_cicle.Clear
rs_a.MoveFirst

Do While Not rs_a.EOF
If notes2 <> rs_a!cognoms_nom Then
cmbnotes_alumne.AddItem rs_a!cognoms_nom
cmbnotes_cicle.AddItem rs_a!codi_cicle
End If
rs_a.MoveNext
Loop
cmbnotes_alumne.Text = notes
cmbnotes_cicle.Text = cicles
End Sub

Muchas gracias de antemano. Espero obtener respuesta ya que me urge porque es un proyecto final. Saludos cordiales