Код, малость видоизмененный(Выдает ошибку: Ошибочное или пропущенное зарезервированное слово или аргумент в инструкции SELECT или неверная пунктуация):
Private Sub Комбинированная3_AfterUpdate() Dim b As String b = " SELECT Начальники.Фамилия," & _ " Сотрудники.Фамилия," & _ " FROM Начальники " & _ " INNER JOIN Сотрудники " & _ " ON Начальники.Отдел = Сотрудники.Отдел = '" & Me.Комбинированная3.Value & "'" Me.RecordSource = b End Sub