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