[Resolvidos]Filtro em dois campos utilizando if

Ola feras estou precisando de ajuda com filtro tenho form com 2 filtros
por contas e situaçao o filtro por conta funciona mas o por situaçao nao faz o filtro
segui ex para entenderem melhor
http://www.speedyshare.com/files/23918846/Banco_de_Dados1.accdb

Private Sub CxcFiltro_AfterUpdate()
If IsNull(CXcfiltro) And IsNull(CXcSituação) Then
Me.FilterOn = False
ElseIf Not (IsNull(CXcfiltro) Or IsNull(CXcSituação)) Then
Me.Filter = "Situação='" & CXcSituação & "' and Conta='" & CXcfiltro & "'": Me.FilterOn = True
ElseIf IsNull(CXcfiltro) Then
Me.Filter = "Situação='" & CXcSituação & "'": Me.FilterOn = True
Else
Me.Filter = "Conta='" & CXcfiltro & "'": Me.FilterOn = True
End If
End Sub

Private Sub CXcSituação_AfterUpdate()
If IsNull(CXcfiltro) And IsNull(CXcSituação) Then
Me.FilterOn = False
ElseIf Not (IsNull(CXcfiltro) Or IsNull(CXcSituação)) Then
Me.Filter = "Situação='" & CXcSituação & "' and Conta='" & CXcfiltro & "'": Me.FilterOn = True
ElseIf IsNull(CXcfiltro) Then
Me.Filter = "Situação='" & CXcSituação & "'": Me.FilterOn = True
Else
Me.Filter = "Conta='" & CXcfiltro & "'": Me.FilterOn = True
End If
End Sub

Alexandre valeu pela ajuda resolvi de outra forma mas agradeço a atençao do amigo