[Resolvido]Erro em SQL Insert Into...... para exportar campo texto e campo número

Prezados, bom dia a todos.

Careço eu de uma pequena ajuda dos colegas. Tenho cá comigo a seguinte linha de comando:

Dim strSQL As String, strSQL1 As String
If MsgBox(" Deseja salvar esse cliente ?", vbOKCancel + vbDefaultButton1 + vbInformation, "Aviso !!") = vbOK Then
strSQL = "INSERT INTO tblTelefones (IDCliente, CPF, CNPJ) VALUES ('" & Me.Idcliente.Value & ", '" & Me.CPF.Value & "', " & Me.CNPJ.Value & "',)"
CurrentDb.Execute strSQL

Os campos: Idcliente é numeração automática e chave primária ( mas nas outras tabelas é apenas número,chave secundária) e CPF/CNPJ são textos. Preciso e careço exportar esses campos para duas tabelas ( telefones e histórico), porém está dando erro na linha srtSql.

Sinceramente eu não sei onde estou a errar.

Agradeço a quem puder me ceder um pouco do tempo.

Abraços.

Bom dia,

Vê se é isso:

strSQL = "INSERT INTO tblTelefones (IDCliente, CPF, CNPJ) VALUES (" & Me.Idcliente.Value & ", '" & Me.CPF.Value & "', '" & Me.CNPJ.Value & "')"

Claudio, bom dia.

Grato por responder e solucionar a questão supracitada !

Uma duvida, caso queria eu, acrescentar a outra tabela seria algo parecido com isso ?

Dim strSQL As String, strSQL1 As String
If MsgBox(" Deseja salvar esse cliente ?", vbOKCancel + vbDefaultButton1 + vbInformation, "Aviso !!") = vbOK Then
strSQL = "INSERT INTO tblTelefones (IDCliente, CPF, CNPJ) VALUES ('" & Me.Idcliente.Value & ", '" & Me.CPF.Value & "', " & Me.CNPJ.Value & "',)"
CurrentDb.Execute strSQL

strSQL1 = "INSERT INTO tblhistorico (IDCliente, CPF, CNPJ) VALUES ('" & Me.Idcliente.Value & ", '" & Me.CPF.Value & "', " & Me.CNPJ.Value & "',)"
CurrentDb.Execute strSQL1

Sim, e pode ser feito aproveitando apenas uma variável:

Dim strSQL As String

If MsgBox(" Deseja salvar esse cliente ?", vbOKCancel + vbDefaultButton1 + vbInformation, "Aviso !!") = vbOK Then
strSQL = "INSERT INTO tblTelefones (IDCliente, CPF, CNPJ) VALUES (" & Me.Idcliente.Value & ", '" & Me.CPF.Value & "', '" & Me.CNPJ.Value & "')"
CurrentDb.Execute strSQL

strSQL = "INSERT INTO tblhistorico (IDCliente, CPF, CNPJ) VALUES (" & Me.Idcliente.Value & ", '" & Me.CPF.Value & "', '" & Me.CNPJ.Value & "')"
CurrentDb.Execute strSQL

End If

Eita..eu coloquei duas. Vou retirar a outra então.

Abraços, tópico resolvido !!!!

Tópico movido para a sala correta.

Eita, grato Administrador, não havia eu reparado tal falha.