Validar mas de un campo antes de hacer un insert

[pilandro]

Buenas!! les comento que soy nuevo en el foro com así tambien en ASP.
Mi consulta es la siguiente:
Tengo una página que recibe los datos de un elemento a travez de un form de otra pagina .asp y cuando quiero validar 2 campos para ver que no se dupliquen me sale este error:

ADODB.Recordset (0x800A0E79)
La operación no está permitida si el objeto está abierto.
/Dep_Sum/conf_carga.asp, line 26

(la linea 26 es: registros.open sql,conexion)

Les dejo el código y espero me puedan ayudar. Desde ya muchas gracias!!

Dim conexion, registros, basedatos, inc, ppr, ppa, codcla, coditem, elem, cant, fecha, rubro, cant_opt, cant_proy, sql

basedatos = Server.MapPath("elementos.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
Set registros = Server.CreateObject("ADODB.Recordset")

conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
registros.Open "stock_elem",Conexion

codcla=Request.form("codcla")
coditem=Request.form("coditem")
sql = "SELECT * FROM stock_elem WHERE codcla = '" & codcla & "' AND coditem = '" & coditem & "'"
registros.Open sql, conexion

If not registros.BOF And not registros.EOF then
response.redirect "error_cod1.html"
end if


inc=Request.form("inc")
ppr=Request.form("ppr")
ppa=Request.form("ppa")
elem=Request.form("elem")
cant=request.form("cant")
fecha=Request.form("fecha")
rubro=request.form("rubro")
cant_opt=Request.form("cant_opt")
cant_proy=Request.form("cant_proy")

sql = "INSERT INTO stock_elem(inc,ppr,ppa,codcla,coditem,elem,cant,fe cha,rubro,cant_optima,cant_proy) VALUES('" & inc & "','" & ppr & "','" & ppa & "','" & codcla & "','" & coditem & "','" & elem & "','" & cant & "','" & fecha & "','" & rubro & "','" & cant_opt & "','" & cant_proy & "')"

conexion.Execute sql

registros.Close
Conexion.Close

%>
registro guardado!</p>