ayuda por favor con insert

[chidomen]

tengo un script sencillo para insertar datos en una tabla de access, pero no se que es lo que estoy haciendo mal, alguien por favor me podria ayudar, este es el codigo

<%
Dim nombre, apellido, email,empresa, password, data_source, con, sql_insert

Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function

nombre = ChkString(Request.Form("nombre"))
apellido = ChkString(Request.Form("apellido"))
email = ChkString(Request.Form("email"))
empresa = ChkString(Request.Form("empresa"))
password = ChkString(Request.Form("password"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("login.mdb")
sql_insert = "Insert Into loginTable (email, empresa, apellido, userName, password) values ('" & email & "','" & empresa & "', '" & apellido & "', '" & userName & "', '" & password & "')"

Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert

con.Close
Set con = Nothing
%>
y este es el error que me muestra:
Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

/login/add.asp, line 26

espero que alguien me pueda ayudar por favor

saludos