Data type mismatch in criteria expression.

[Skull260287]

Ciao a tutti e buon sabato, mi aiutereste a capire dov'è l'errore in questo codice?

<%
if isNumeric(request("Gruppo")) then gruppo=request("Gruppo") else gruppo=0 'Aggiunto da Me'
if isNumeric(request("Posizione")) then posizione=request("Posizione") else posizione=0 'Aggiunto da Me'
if isNumeric(request("IDCatParent")) then Padre=request("IDCatParent") else Padre=0 'Aggiunto da Me'
if (isNumeric(request("IDCat")) AND Request("IDCat")<>"") Then IDCategory=Request("IDCat") else IDCategory=0 'Aggiunto da Me'



sql2="SELECT * FROM Categorie WHERE IDCategoria<>" & IDCategory & " AND Gruppo=" & gruppo & " AND Posizione=" & posizione & " AND IDCatParent=" & Padre

set OBJConn1 = server.createobject("ADODB.Connection")
OBJConn1.ConnectionString=FonteDati
objConn1.open
set RS1=server.CreateObject("ADODB.Recordset")
RS1.Open Sql2,objconn1,3,3    'Linea 16'

If Rs1.RecordCount<>0 Then 
Randomize
Link= "index.asp?P=ElencoSottoCategorie&rnd=" & rnd & "&err=1"

RS1.Close
Set RS1 =Nothing
OBJConn1.Close
Set OBJConn1 = Nothing 

E questo è l'errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/lavoro/adminarea/saveSottoCategoria.asp, line 16

Grazie a Tutti