Grabar datos en recordset

[sabiñanigo]

Cuando al recordset le doy la orden de que me cree un nuevo registro me da error como que no tengo permisos(exactamente no se que error me da)
La conexion la creo así:

Código:

 Set conexion=Server.CreateObject("ADODB.Connection")
conexion.mode = addModeReadWrite
		conexion.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=access.mdb")

y elrecordset lo creo con las siguientes ordenes

Código:

 		set RSGrabar = server.createobject("ADODB.Recordset")
RSGrabar.Open "olvCla", conexion, adOpenStatic', adLockPessimistic
		RSGrabar.addnew
RSGrabar ("j") = email
		RSGrabar.update
		RSGrabar.close

Tambien me gustaria saber cual es la forma de crear una funcion que me cree la conexion con la base de datos y asi no tener que repetir todo el codigo de la conexion. Lo he intendado pero no consigo que me devuelva el objeto.
Gracias por vuestro interes

[biblio]

Hola, el siguiente código lo guardas como conec.inc

<%
Dim adoCon
Dim strCon
Dim strSQL

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

strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dreamweb-e.mdb")

adoCon.Open strCon

%>

Y en la página que quieras llamarlo lo haces de este modo.

<!--#include file="conec.inc" -->
<%

Set rsDetCat = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tblDetailCategory ORDER BY fldIdDetailD DESC"
rsDetCat.Open strSQL, strCon,1,2
%>

Saludos.