Error:bloqueo exclusivo

[pocanto]

Bueno amigos primero que nada saludos, tengo este codigo:

<%@LANGUAGE=VBScript%>
<%Option Explicit
Dim conn
Dim Rs
Dim Ruta
Ruta=Server.MapPath("/test.mdb")
Set conn=Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ="& Ruta &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs.ActiveConnection = conn
Rs.Source = "Select * FROM Proceso Where 1=2"
Rs.CursorType = adOpenStatic
Rs.LockType = adLockOptimistic
Set Rs=conn.Execute("Insert into dato(Cedula,Apellido,Nombre,Telefono,Profesion,Sue ldo) values('"&Request.Form("cedula")&"','"&Request.For m("apellido")&"','"&Request.Form("nombre")&"','"&R equest.Form("telefono")&"','"&Request.Form("profes ion")&"','"&Request.Form("sueldo")&"')")
Rs.Close
Set conn = Nothing
Set Rs = Nothing
Set Ruta = Nothing
Response.Redirect("confirm.asp?dato='"&Request.For m("cedula")&"'")
%>

para insertar en IIS pero me da este error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01F4)
La variable no está definida: 'adOpenStatic'
/piero/ingresar.asp, line 13

Y no le encuentro solucion. espero que alguien pueda ayudarme