Hope some one can help me.

I cannot add records

<%@ LANGUAGE = VBScript %>
<%  Option Explicit %>
<%  Response.Expires= -1 %>
<!--#include file="ADOVBS.INC"-->
<%
Dim con, strConn
Set con= Server.CreateObject("ADODB.Connection")

strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
strConn = strConn & "DBQ=" & Server.Mappath("cursosbd.mdb")
con.Open strConn

Dim SQL, rec
set rec = server.createobject("adodb.recordset")
SQL = "select * from CveZona"
set rec = con.execute(SQL)

rec.AddNew
rec("Empresa")=Request.Form("CustEnterprise")
rec("mail")=Request.Form("CustMail")
rec("Contacto")=Request.Form("CustName")
rec.Update
rec.MoveFirst