Filtrar en vba en base de datos access

Tengo este código el cual me ayudó a realizar un experto de esta maravillosa página, gracias Eduardo. El problema que quiero añadirle un filtro más, el cual diga aparte de lo que hace ahora mismo que es abrirme el formulario con el filtro indicado, que me hiciera un filtro más, que sería que el campo "Estado_Leads" ="Pendiente Aprobación"

Mil gracias

Private Sub Comando10_Click()

Dim clave As String

Usuario = Nz(DLookup("login", "Usuarios", "login='" & Me.txtUsuario & "'"), "")
clave = Nz(DLookup("clave", "Usuarios", "login='" & Me.txtUsuario & "'"), "")

If clave = "" Then

MsgBox "Usuario no asignado", vbCritical, "Cuidado"

Exit Sub

End If
If IsNull(Me.txtUsuario) Or IsNull(Me.txtClave) Then
MsgBox "Escriba el usuario y la clave y pulse Ingresar", vbExclamation, "Atención"
Exit Sub
End If

If Usuario = "" Or IsNull(Usuario) Then
MsgBox "El usuario no existe en la base de datos", vbExclamation, "Usuario no válido"
Else
If clave = Me.txtClave Then
MsgBox "Correcto", vbInformation, "Welcome"
User = Trim(Usuario)

DoCmd.OpenForm "PLATAFORMA_SUBVENCIONES_ResumenGestionSub", , , "[GESTOR]='" & Me.txtUsuario & "'"
Else
MsgBox "La clave no es correcta", vbExclamation, "Clave incorrecta"
End If
End If

End Sub