The following is the code I am inserting now into the after update event of Combo44.
Private Sub Combo44_AfterUpdate()
Dim str1 As String
str1 = "SELECT appl, dname, surname, dctIdcard, Speciality FROM Query2 WHERE Speciality = " & Me.Combo44 & " ORDER BY surname"
Me.List54.RowSource = str1...