zkusil bych za řádek
If MsgBox("Přejete si odstranit '" & IDPS_KK & "'.", vbYesNo + vbQuestion) = vbYes Then
dát Print strSQL
abych viděl co se tem posílá....
a případně se nainstalovat SQL management studio a zkusil bych v něm tento příkaz - strSQL
tam se ti vypíše detailně kde je chyba, jde o to že podle
http://www.csidata.com/custserv/onlinehelp/vbsdocs/vbs89.htm
muže v řetězci strSQL za IDPS_KK = být identifikátor NULL a ten jako číslo neexistuje.