ayuda por favor con insert

[chidomen]

lo que hice fue darle permisos al folder donde esta la base, a la base tambien le di permisos de escritura, en el servidor hice la conexion a la base, y quedaria asi 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"))


sql_insert = "Insert Into loginTable (email, empresa, apellido, userName, pass) values ('" & email & "','" & empresa & "', '" & apellido & "', '" & nombre & "', '" & password & "')"

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

con.Close
Set con = Nothing
%>

este es el error que me muestra:
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.


saludos