Foro de programacion

dim cn
dim rs
strconexion = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath(".") & "\bdatos\bdlaboratorio.mdb;" & "Persist Security Info=False"
set cn = server.createobject ("ADODB.connection")
set rs = server.createobject ("ADODB.recordset")
cn.open strconexion
strsql = "select * from proyecto where numproyec='" & numproyec & "'"
rs.open strsql,cn,adOpenDynamic,adLockOptimistic
///// ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros, cuando lo quito y solo pongo 'rs.open strsql,cn' me sale error al grabar un registro dice que nose puede 'El objeto o proveedor no puede ejecutar la operación requerida.'
rs("numproyec")=numproyec
rs("nomproyec")=nomproyec
rs("ubiproyec")=ubiproyec
rs("cliproyec")=cliproyec
rs("fesproyec")=fesproyec
rs("labproyec")=labproyec
rs("recproyec")=recproyec
rs("fetproyec")=fetproyec
rs.update
rs.close
cn.close