ola amigos,gostaria de saber onde esta o erro nesta rotina

 

Private Sub Command1_Click()
Dim db As Database
Set db = DBEngine(0).OpenDatabase("C:CONSULTACONS.mdb")

Sql = "Insert Into Tabela_q_Vai_os_dados (cliente,fantasia) From Tb_q_tem_osdados"
db.Execute Sql
end Sub

 

da o seguinte erro:

Syntax error in INSERT INTO statement

eu ia falar que era a falta da barra invertida entre C:  e consultacons.mdb mas já nem sei se está faltando mesmo, porque quando insiro uma barra invertida aqui ela não aparece no forum

 

mas mesmo assim é uma dica

 

Ola Treze assim voce estaria passando os valores fixos para o insert pelo jeito ele quer inserir os dados na tabela com um retorno de um select se for isso segue abaixo

 

Sql = "Insert Into Tabela_q_Vai_os_dados (cliente,fantasia) select cliente, fantasia From Tb_q_tem_osdados"

 

ou seja ele estará inserindo na tabela com o retorno de um select normal  acima em negrito e itálico esta o que estava faltando

 

 

Abraços amigos se não passar por aki Feliz Natal