I doubt this would change anything, but maybe there's some particular quirk with your machine or install or something, so maybe this might work:
Code:
dbs.Execute "DELETE * FROM ActiveMachines WHERE [MachineName] = """ & Trim(strComputerName) & """;"
I am a loud man with a very large hat. This means I am in charge