[Resolvido]consulta em vba

galera tenho a seguinte consulta

SELECT TBCCE.BANCO, TBCCE.CC, TBCCE.NOMINAL, TBCQPG.NUMEROCQ, TBCQPG.VENCIMENTO, TBFORNECEDOR.FORNECEDOR, TBCQPG.VALOR, TBCQPG.SITUACAO
FROM TBFORNECEDOR INNER JOIN (TBCCE INNER JOIN TBCQPG ON TBCCE.IDCCE = TBCQPG.IDCCE) ON TBFORNECEDOR.IDFORNECEDOR = TBCQPG.IDFORNECEDOR
WHERE (((TBCQPG.SITUACAO)="EMITIDO"))
ORDER BY TBCQPG.VENCIMENTO;


ate ai tudo bem

eu consigo por ela no vba so que não consigo fazer where e order by funcionar gostaria de saber cmo teria que ficar essa parte

teste por favor;

Dim strSQL As String
strSQL = "SELECT * " & vbCrLf & _
"FROM TBFORNECEDOR INNER JOIN (TBCCE INNER JOIN TBCQPG ON TBCCE.IDCCE = TBCQPG.IDCCE) ON TBFORNECEDOR.IDFORNECEDOR = TBCQPG.IDFORNECEDOR " & vbCrLf & _
"WHERE (((TBCQPG.SITUACAO)='EMITIDO')) " & vbCrLf & _
"ORDER BY TBCQPG.VENCIMENTO"

DoCmd.RunSQL (strSQL)

muito obrigado

Obrigado pelo retorno o forum agradece.