Foro de programacion

Quiero agrgar un registro a una tabla de access y me da un error en el explorador.
Acá les mando el código y el error a ver si alguine me dice que puede estar mal

' tomamos los datos del formulario

id_cred = request.form("Id_cred")
codgame = request.form("CodGamePro")
credmin = request.form("ValCredMin")
credmax = request.form("ValCredMax")
idioma = request.form("IdiomAudit")
descred = request.form("DescripCredit")

' creo la conexion y el recordset

Set Con=Server.CreateObject("ADODB.Connection")
sql = " select * from Creditos; "
Set rs=server.CreateObject("adodb.recordset")
rs.open "Creditos","DSN=Maquinas"
rs.Open "SELECT * FROM Creditos", Con, adOpenDynamic, adLockPessimistic, adCMDText

'base= "PROVIDER=Microsoft.jet.oledb.4.0;data source="& server.mappath("../bertolachini.mdb")&";"
'sql = " select * from agenda; "
'set rs=server.CreateObject("ADODB.Recordset")
'rs.open sql, base, 2,3

rs.Addnew