[Resolvido]Gravar dados em 2 tabelas diferentes

Pessoal, boa tarde!

Estou precisnado de um Help!

Estou tentando gravar os dados de um form em 2 tabelas diferentes. Para isso estou usando o código abaixo:

Private Sub Texto3548_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL ("INSERT INTO tblContratos (CodCliente, DataVencimento) VALUES('"Form!Franqueados!nº Loja,Form!Franqueados!Texto3533"');")
DoCmd.SetWarnings True
End Sub

Mas estou encontrando o erro: "Erro de Sintzxe"

Alguém pode me ajudar ?
Abraço

Boa tarde, RRIZZI
Tente
Currentdb.execute "INSERT INTO tblContratos (CodCliente, DataVencimento) VALUES (" & Forms!Franqueados!nº_Loja & ",#" & Forms!Franqueados!Texto3533 & "#);"

Confira a formatação da data. Pode ter de formatar: Format(xxx,"dd-mm-yyyy")
Reveja a nomeação de controlos

Tentei colocar o código mas não funfou

Disponibilize a bd

Pessoal... Bom dia... Estou tentando executar esse código para gravar a mesma informação em 2 tabelas difrentes e esta dando "erro de sintaxe". Alguém pode me ajudar a respeito e ver o que esta errado nesse código:

CurrentDb.Execute "INSERT INTO tblContratos (CodCliente, DataVencimento) VALUES (" & Forms!Franqueados!nº Loja & ",#" & Forms!Franqueados!RenovTxt & "#);"

desde já agradeço.
Att...

"INSERT INTO tblContratos (CodCliente, DataVencimento) VALUES (" & Forms!Franqueados![nº Loja] & ",#" & Forms!Franqueados!RenovTxt & "#);"

ok, vou tentar pra ver se funciona depois dou retorno...

Inseri o código desta forma:

Private Sub nº_Loja_AfterUpdate()
DoCmd.SetWarnings False
CurrentDb.Execute "INSERT INTO tblContratos (CodCliente, DataVencimento) VALUES (" & Forms!Franqueados!nº_Loja & ",#" & Forms!Franqueados!Texto3533 & "#);"
DoCmd.SetWarnings True
End Sub

Mas ainda está pedindo pra depurar...

Solicito ajuda...

Obrigado