ちなみに490行目の命令は

ObjConn.Execute(StrSQL)

ここでエラー出ます。