[Resolvido]RecordSources com critérios de seleção em cboBox

Bom dia pessoal, preciso colocar mais um critërio para carregar o subformulario que seria descrição do produto na cboProdutos
o código sem a descriçao do produto esta funcionando bem e esta assim:

Private Sub Comando123_Click()
If SelComando123 - 1 Then

       Me.comb_inicio = Me.txtDataInicial
       Me.Comb_data = Me.txtDataFinal

       subFormDESPESAS.Form.RecordSource = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar FROM tbl_Despesas " & vbCrLf & _
"WHERE (((DataLancamento) Between comb_inicio And Comb_data)) AND ValorPago >0 " & vbCrLf & _
"ORDER BY tbl_Despesas.DataLancamento ASC;"
End If
End Sub

TEntei colocar mais um critério cboProdutos, assim:

Private Sub Comando123_Click()
If SelComando123 - 1 Then

       Me.comb_inicio = Me.txtDataInicial
       Me.Comb_data = Me.txtDataFinal

       subFormDESPESAS.Form.RecordSource = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar FROM tbl_Despesas " & vbCrLf & _
                                           "WHERE (((DataLancamento) Between comb_inicio And Comb_data)) AND ValorPago >0 and Descricao Like '*" & Me.cboProdutos.Text" & vbCrLf & _
                                           "ORDER BY tbl_Despesas.DataLancamento ASC;"
End If
End Sub

obs: "Descricao" é o campo na tabela que esta na "cboProdutos" .
Vem a mensagem erro de sintaxe, podem me orientar, obrigado!!

opa, obrigado Alexandre, o código não da erro mas não carrega o subformulário, será que falta um requery?

https://www.dropbox.com/s/13hr5iueqycscdi/Banco%20de%20dados8.accdb?dl=0

codigo esta no botão teste
"Comando 123"

bom dia, estou testano ainda mas acho que vai dar certo:
Apenas mudei o formato de data para americano e coloquei as caixas de texto nas datas.

Dim sSQL As String

sSQL = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar "
sSQL = sSQL & " FROM tbl_Despesas "
sSQL = sSQL & " WHERE (((DataLancamento) BETWEEN #" & Format(Me.txtDataInicial, "YYYY/mm/dd") & "# "
sSQL = sSQL & " AND #" & Format(Me.txtDataFinal, "YYYY/mm/dd") & "#)) "
sSQL = sSQL & " AND ValorPago > 0"
sSQL = sSQL & " AND Descricao Like '*" & Trim(Me.cboProdutos) & "*'"
sSQL = sSQL & " ORDER BY tbl_Despesas.DataLancamento ASC;"

subFormDESPESAS.Form.RecordSource = sSQL

Alexandre, o código funcionou perfeitamente, agradeço muito a vc por compartilhar seu tempo e conhecimento.
Show , obrigado!!!