[Resolvido]Acréscimo de mais um condição em rotina SQL

Prezados boa tarde.

Preciso de uma luz.

A rotina está certa e funfando perfeitamente, porém necessito acrescentar mais uma condição a mesma.

Condição:
StatusOculta="comissão a pagar"


Rotina sendo usada:
Dim SQL As String
SQL = "SELECT * FROM QryMudaStatusBaixaPgtoDentista WHERE QryMudaStatusBaixaPgtoDentista.DentistaOculta Like '*'+ Forms!FrmMudaStatusBaixaPgtoDentista!DenOculta & '*'" _
& "ORDER BY " _
& "QryMudaStatusBaixaPgtoDentista.NomePaciente ASC"
Me.Form.RecordSource = SQL

Preciso acrescentar essa condição na clausula WHERE após + Forms!FrmMudaStatusBaixaPgtoDentista!DenOculta & '*'"

Já coloquei de varias maneiras e modo o status...e sempre erro...

Alguém pode me ajudar ?

Olá, ja tentou assim:

SQL = "SELECT * FROM QryMudaStatusBaixaPgtoDentista WHERE QryMudaStatusBaixaPgtoDentista.DentistaOculta Like '*'+ Forms!FrmMudaStatusBaixaPgtoDentista!DenOculta & '*' WHERE StatusOculta='comissão a pagar' " & _

Dessa forma deu jogo...

SQL = "SELECT * FROM QryMudaStatusBaixaPgtoDentista WHERE QryMudaStatusBaixaPgtoDentista.DentistaOculta Like '*'+
Forms!FrmMudaStatusBaixaPgtoDentista!DenOculta & '*'AND (QryMudaStatusBaixaPgtoDentista.StatusOculta Like 'Comissão a Pagar') " _

Bacana amigo, nem tinha visto que ja tinha uma Condição!!!
Até aproxima se Deus quiser!