В событии after_update раскрывающегося списка Менеджер поместите код, который выбирает сотрудников, во все, что вы хотите отобразить - список, подчиненную форму или другой комбинированный список.
Private Sub Cb_Manager_AfterUpdate()
Me.List59.RowSource = "select EmpID & '-' & EmpName from employee where manager = '" & Me.cb_Manager & "' "
Me.List59.Requery
End Sub
Теперь в событии onClick списка Employee поместите код, чтобы сделать что-нибудь с Emp ID:
Private Sub List59_Click()
Dim emp() As String
emp = Split(List59.Value, "-")
MsgBox "Selected: " & emp(0) ' ---- Or Open a form with the Emp ID as the filter??
End Sub