[Resolvido]Criar tabela temporária através de parâmetros de formulário - Erro 3061

Boa tarde

Necessito criar uma tabela temporária com dados a partir de parâmetros informados no formulário....., ocorre que, ao tentar executar o código abaixo na linha currentdb.execute é retornado o erro 3061 indicando a falta dos três parâmetros que utilizo para tal criação (txFilial, txAno e txMes)...., algum amigo tem alguma dica para que eu possa resolver a questão?

Obrigado

Att.
Vinicius

Código:


On Error GoTo trataerro
Dim filtro As String

    If IsNull(Me!txAno) Then
        MsgBox "Selecione o Ano!", vbCritical, "Erro"
        Me!cboAno.SetFocus
        Exit Sub
    ElseIf IsNull(Me!txMes) Then
        MsgBox "Selecione o Mês!", vbCritical, "Erro"
        Me!cboMes.SetFocus
        Exit Sub
    ElseIf IsNull(Me!txEmpresa) Then
        MsgBox "Selecione a Empresa!", vbCritical, "Erro"
        Me!lstEmpresas.SetFocus
        Exit Sub
    ElseIf IsNull(Me!txFilial) Then
        MsgBox "Selecione a Filial!", vbCritical, "Erro"
        Me!lstFiliais.SetFocus
        Exit Sub
    Else
        CurrentDb.Execute "SELECT qr_ExportaOK.lancAno, qr_ExportaOK.lancMes, qr_ExportaOK.idFilialFunc, qr_ExportaOK.lancAno, qr_ExportaOK.MesEx, qr_ExportaOK.Matr, qr_ExportaOK.Contr, qr_ExportaOK.TipoLan, qr_ExportaOK.Exportar INTO tbExportarTMP FROM qr_ExportaOK WHERE (((qr_ExportaOK.lancAno) Like [Formulários]![frm_Parametros]![txAno]) AND ((qr_ExportaOK.lancMes) Like [Formulários]![frm_Parametros]![txMes]) AND ((qr_ExportaOK.idFilialFunc) Like [Formulários]![frm_Parametros]![txEmpresa]));"
    End If

Sair:
    Exit Sub
trataerro:
    Select Case Err.Number
        Case 9999
            Resume Next
        Case Else
            MsgBox "Aviso - Exportar (CL)." & vbCrLf & "Erro n°: " & Err.Number & vbCrLf & "Descrição: " & Err.Description, vbCritical, "Aviso"
    End Select
    Resume Sair:



Bom dia

Acabei resolvendo com o comando DoCmd.RunSQL.

Obrigado.

Att.
Vinicius