[Resolvido]Carregar caixa de combinação com itens NÃO lançados em tabela relacionada

On Error GoTo TratarErro
Recomeca:
Dim bd As DAO.Database
Dim Query1 As QueryDef
Dim Query2 As QueryDef
Set bd = CurrentDb
Set Query1 = bd.CreateQueryDef("QDF1", "SELECT tbUsuarioPermissaoModulo.ID_Modulo, tbUsuarioPermissaoModulo.Modulo, tbUsuarioPermissao.Departamento " _
                                            & "FROM tbUsuarioPermissaoModulo LEFT JOIN tbUsuarioPermissao ON tbUsuarioPermissaoModulo.ID_Modulo = tbUsuarioPermissao.Modulo " _
                                            & "WHERE (((tbUsuarioPermissao.Departamento)=" & Me.cboDepartamento & "))")
Set Query2 = bd.CreateQueryDef("QDF2", "SELECT tbUsuarioPermissaoModulo.ID_Modulo, tbUsuarioPermissaoModulo.Modulo " _
                                            & "FROM tbUsuarioPermissaoModulo LEFT JOIN QDF1 ON tbUsuarioPermissaoModulo.ID_Modulo = QDF1.ID_Modulo " _
                                            & "WHERE (((QDF1.ID_Modulo) Is Null));")
Me.cboModulo.RowSource = "QDF2"
bd.Close
Exit_TrataErro:
Exit Sub
TratarErro:
If Err.Number = 3012 Then
       DoCmd.DeleteObject acQuery, "QDF1"
       DoCmd.DeleteObject acQuery, "QDF2"
       GoTo Recomeca
Else
       MsgBox "Aconteceu um erro inesperado. N° do Erro: " & Err.Number & "; Descrição do Erro: " & Err.Description
End If
Resume Exit_TrataErro