[Resolvido]Executar uma macro a partir de uma caixa de combinação.

Prezados Amigos, boa noite!
Poderiam me ajudar mais uma vez, Estou quebrando a cabeça com uma situação.
Tenho um formulário "Cadastro_01" no qual tenho uma caixa de combinação chamada "Turno", nesta caixa é possível carregar uma consulta "12_Fonte_Turno", que carrega as informações "Manhã", "Tarde" e "Noite".
Quando eu selecionar uma destas opções, devo habilitar a caixa de combinação "OPdip_hc01" a receber a consulta "01_Operador_Clip_Manha", "02_Operador_Clip_Tarde" e ou "03_Operador_Clip_Noite". Desta forma facilito a seleção dos operadores diminuindo a quantidade que será visualizado.

Criei uma macro para chamar a consulta, mas não estou conseguindo unir, e fazer a consulta carregar na caixa de combinação "OPdip_hc01".

Obrigado e desculpe pela inexperiência.

Private Sub OPdip_hc01_Change()

If Me.Turno = "Manhã" Then

Me.OPdip_hc01 = ? 01_Operador_Clip_Manha

If Me.Turno = "Tarde" Then

Me.OPdip_hc01 = ? 01_Operador_Clip_Tarde

If Me.Turno = "Noite" Then

Me.OPdip_hc01 = ? 01_Operador_Clip_Noite

End If

End Sub

Amigos, boa noite!
Mudei a logica e fiz um Select, e está funcionando parcialmente, ele só leva para a caixa de combinação o primeiro nome da manha, tarde e noite.
Acho que estou no caminho, talvez seja algo simples, carregar a caixa de combinação "Me.OPdip_hc01" com a relação dos nomes de cada turno?
Obrigado

Private Sub Turno_HC01_Change()

On Error GoTo trata_erro

Dim dbl As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String


strSQL = "SELECT Nome FROM Operador_Clipping where Turno = '" & Me.Turno_HC01 & "' ORDER BY [Nome];"

Set dbl = CurrentDb
Set rs = dbl.OpenRecordset(strSQL)

Me.OPdip_hc01 = rs("nome") <<<====****

rs.Close
Set rs = Nothing

Exit Sub

trata_erro:
MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!"
Exit Sub

End Sub

Amigos, consegui resolver!