[Resolvido]Filtrar dados com critério em duas combos

Pessoal, boa noite,
No BD em anexo tenho o formulário onde uso o código abaixo e faço filtro em duas Combos por meio de uma consulta.
Tenho a seguinte dúvida?
A primeira combro chamada FILTRAR GUIA, ela filtra as GIHs que possui no banco, já a segunda chamada FILTRA DATA, ela filtra as datas das respectivas datas selecionadas na Combo anterior, ou seja, como uma GIH tem mais de uma data; gostaria de uma ideia e saber se é possível filtrar a Combo FILTRAR GUIA e escolher uma data dessa GIH para filtrar ainda mais a informação que preciso pela Combo FILTRA DATA.

Uso como exemplo a GIH 858346412, que filtrei e me trouxe duas datas 12/03/2014 e 31/03/2014. Gostaria que ao selecionar FILTRA DATA a data 12/03/2014, me mostrasse os itens desse data nessa mesma GIH 858346412.

SELECT DISTINCT Enviado.DtAtendimento, Enviado.CódGuia
FROM Enviado
GROUP BY Enviado.DtAtendimento, Enviado.CódGuia
HAVING (((Enviado.CódGuia)=[Forms]![Form_Itens enviados]![cboEnviados])) OR (((Enviado.DtAtendimento) Like "*" & [Forms]![Form_Itens enviados]![cboEnviados] & "*"));


Link: https://www.dropbox.com/s/q307451lkpik00u/Banco%20de%20Dados1.accdb

Bom dia,
Private Sub cboDtAtendimento_AfterUpdate()
Dim Filtro As String
If Not IsNull(Me.cboDtAtendimento) Then Filtro = " and [DtAtendimento] = '" & Me.cboDtAtendimento & "'"
If Not IsNull(Me.cboEnviados) Then Filtro = Filtro & " and [CódGuia] = '" & Me.cboEnviados & "'"
DoCmd.ApplyFilter , Mid(Filtro, 6)
End Sub

Private Sub cboEnviados_AfterUpdate()
'Me.cboDtAtendimento = ""
On Error GoTo trata
Dim Filtro As String
If Not IsNull(Me.cboDtAtendimento) Then Filtro = " and [DtAtendimento] = '" & Me.cboDtAtendimento & "'"
If Not IsNull(Me.cboEnviados) Then Filtro = Filtro & " and [CódGuia] = '" & Me.cboEnviados & "'"
DoCmd.ApplyFilter , Mid(Filtro, 6)
Me.cboDtAtendimento.SetFocus
trata:
If err.Number = 3021 Then
'MsgBox "Número de Nota Já Existe!", vbInformation, "Atenção"
Exit Sub
Resume Next

End If
'Me.cboDtAtendimento.Dropdown
Me.cboDtAtendimento.Requery

End Sub

Perfeito Alexandre Neves,

Era essa informação que precisava.

Muito obrigado amigo!