error en Insert...

[pastor22]

Buen día tengo un problema con un insert y este es que me esta marcando este error:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)
No se estableció ningún texto de comando para el objeto de comando.

Realmente no se porque me esta generando este error, si alguien me puede ayudar se lo agradecería mucho!!!
Saludos!!!
Aquí les dejo el código


objcon.Open "driver={SQL Server};server=" & session("SERVER") & ";database=" & session("DB") & ";uid=" & session("USR") & ";pwd=" & session("PAS")

IF request("Idc") = "" then

if request.form("TxTCumple") = "" then
Cumple = "Null"
else
Cumple = "'" & mid(request.form("TxTCumple"),4,2) & "/" & mid(request.form("TxTCumple"),1,2) & "/" & mid(request.form( "TxTCumple"),7,4) & "'"
end if

set objcon = server.CreateObject ("ADODB.Connection")
objcon.Open "driver={SQL Server};server=" & session("SERVER") & ";database=" & session("DB") & ";uid=" & session("USR") & ";pwd=" & session("PAS")

set RS = objcon.execute(AltaClientePiso)

Set RS = Rs.NextRecordSet()
IdConta = RS("NumeroID")
RS.Close
objcon.Close