Problemas Com Insert

[Frederico Kanashiro]

Set Conexao = Server.CreateObject("ADODB.Connection")

Set Clientes = Server.CreateObject("ADODB.Recordset")

cnpath="DBQ=" & Server.MapPath("cadastro.mdb")

Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

'----------------------------------

' INSERINDO DADOS NO BANCO DE DADOS

'----------------------------------

SQLSmt = "INSERT INTO clientes (nome, razao_social, rua, cep, bairro, cidade, uf, cnpj, insc_estadual, contato, telefone, celular, ultima_compra, banco, conta, agencia)" & "VALUES('" & nome & "', " & razao_social & ", '" & rua & "', '" & cep & "', '" & bairro & "', '" & cidade & "', '" & uf & "', '" & cnpj & "', '" & insc_estadual & "', '" & contato & "', '" & telefone & "' , '" & celular & "', '" & ultima_compra & "', '" & banco & "', '" & conta & "', '" & agencia & "')"

'-----------------------------

' EXECUTANDO O BANCO DE DADOS

'-----------------------------

Conexao.Execute(SQLSmt)

'-----------------

' FEXANDO CONEXÃO

'-----------------

Conexao.Close

[.Andreia.]

você não disse qual o erro, mas talvez seja o que você colocou "& antes do Value, tenta assim:

SQLSmt = "INSERT INTO clientes (nome, razao_social, rua, cep, bairro, cidade, uf, cnpj, insc_estadual, contato, telefone, celular, ultima_compra, banco, conta, agencia) VALUES('" & nome & "', " & razao_social & ", '" & rua & "', '" & cep & "', '" & bairro & "', '" & cidade & "', '" & uf & "', '" & cnpj & "', '" & insc_estadual & "', '" & contato & "', '" & telefone & "' , '" & celular & "', '" & ultima_compra & "', '" & banco & "', '" & conta & "', '" & agencia & "')"