Replace
strsql = "UPDATE TCPIP SET TCPIP.Allocated = 0 WHERE ((TCPIP.ID)=[strwhere]);"
with
strsql = "UPDATE TCPIP SET TCPIP.Allocated = 0 WHERE ((TCPIP.ID)=[" & strwhere & "]);"
The variable was earlier taken as part of the string literally
Cheers
Shasur
http://www.vbadud.blogspot.com