[Resolvido]Instrucao SQL para RowSource em SubForm

Boa tarde a todos!

Tenho um formulário "frmMenu" e um subformulário "subFornec" com os seguintes campos:

subFornec!txtCNPJ (textbox)
subFornec!txtNome (textbox)
subFornec!cmdBusca (button)
subFornec!lstFornec (List box)

No botão "cmdBusca" eu envio os dados para atualizar a lista, mas está dando "erro 13", o código está abaixo.

Desde já agradeço!


Private Sub cmdBusca_Click()

Dim strSql As String

strSql = "SELECT * From qryFornec WHERE (((qryFornec.CNPJ) Like [Forms]![frmMenu]![subFornec].[Form]![txtCNPJ] & " * ") AND ((qryFornec.RazaoSocial) Like [Forms]![frmMenu]![subFornec].[Form]![txtNome] & " * "))"

Me.lstFornec.RowSource = strSql

End Sub

Olá, amigo.

Acho que você pode fazer assim:

Código:

Dim strSql As String
Dim criterio1 as String
Dim criterio2 as String

criterio1 =  [Forms]![frmMenu]![subFornec].[Form]![txtCNPJ]
criterio2 = [Forms]![frmMenu]![subFornec].[Form]![txtNome]

strSql = "SELECT * From qryFornec WHERE CNPJ Like '*" & criterio1 & "*' AND RazaoSocial Like  '*" & criterio2 &"*';"

Me.lstFornec.RowSource = strSql

Boa tarde!

Estou apanhando das listas e combinações. Complicado!

Muito obrigado amigo!