[Resolvido]Trazer dados filtrado no recorset

Boa tarde pessoal estou com um probleminha aqui estou tentando trazer os dados do servidor mysql para uma tabela temporária porem o código que estou tentando esta dando erro:

Public Function Carrega_Clientes()

Dim objRSC As DAO.Recordset
Dim valor_pesq As String

valor_pesq = Me.CNPJ_CPF

Call Conexao_Open("select * from tblcliente Where CNPJ_CPF & valor_Pesq & ") ' Já fiz essa adaptação no codigo que abre a conexão antes tada assim,

'Call Conexao_Open("select * from tblcliente;")



Rem garantindo que a tabela esteja vazia
CurrentDb.Execute "delete * from temp_Cliente_Login;"

Rem abrindo tabela temporária somente para adição de dados
Set objRSC = CurrentDb.OpenRecordset("temp_Cliente_Login", ,


While (Not rs1.EOF)

objRSC.AddNew
objRSC.Fields("Cod_Cliente").Value = rs1.Fields("Cod_Cliente").Value
objRSC.Fields("Status").Value = rs1.Fields("Status").Value
objRSC.Fields("Razao_Social").Value = rs1.Fields("Razao_Social").Value
objRSC.Fields("CNPJ_CPF").Value = rs1.Fields("CNPJ_CPF").Value
objRSC.Fields("Senha").Value = rs1.Fields("Senha").Value
objRSC.Fields("Limite_Credito").Value = rs1.Fields("Limite_Credito").Value
objRSC.Fields("Desconto").Value = rs1.Fields("Desconto").Value
objRSC.Fields("Tipo_Cliente").Value = rs1.Fields("Tipo_Cliente").Value

objRSC.Update

rs1.MoveNext 'vai para o proximo registro


Wend


Rem fechando a tabela temporária aberta na memória do vba
objRSC.Close: Set objRSC = Nothing

rs.Close 'fecha o recorset
cn.Close 'fecha o banco de dados


End Function


Quando chamo a função da erro

Operação não permitida quando o objeto esta fechado.

Alguem pode da uma maozinha.

Provavelmente porque falta o sinal de igual no seu Where;

("select * from tblcliente Where CNPJ_CPF=" & valor_Pesq & "")

Também não se vê aqui como abre a conexão.

Boa noite JPaulo então fiz oque vc sugeriu porem da erro "Operação não permitida quando o objeto esta fechado".

O codigo que uso para conexão é esse.


'---------------------------------------------------------------------------------------
' PROCEDIMENTO: Conexao_Open
' DESCRIÇÃO: Realiza a conexão com o servidor MySQL
'---------------------------------------------------------------------------------------
Public Function Conexao_Open(csql)

On Error GoTo meuerro

Call MySQL_Server 'Carrega parametros do servidor


If cn.State = 1 Then
cn.Close
End If

If rs.State = 1 Then
cn.Close
End If


'cn.Open "driver={MySQL ODBC 5.3 Unicode driver};server=" & MyslqServidor & ";database=" & MyslqDatabase & ";uid=" & MyslqUsuario & "; pwd=" & MyslqSenha
cn.Open "driver={MySQL ODBC 5.1 Driver};server=" & MyslqServidor & ";database=" & MyslqDatabase & ";uid=" & MyslqUsuario & "; pwd=" & MyslqSenha
rs.CursorLocation = adUseClient
rs.Open csql, cn, adOpenDynamic, adLockOptimistic

meuerro:
If Err.Number = 80004005 Then
MsgBox " Não há Conexão com a Internet"
End If

End Function