vb6+sql 程序在执行update和insert into时报错Run-time error '40002':01000:,求解?

大家好:我的程序是vb6+sql2000的,在我的电脑上运行没有任何错误,我把程序放在另一电脑(该电脑的系统是打最新补丁的)上运行的时候,在操作更新,和插入时候报Run-time error '40002':01000: [Microsoft][ODBC SQL ServerDriver][SQL Server]语句已终止这个错误,
程序在执行查询时候没有错误.
程序在我的电脑上打包后,再另一电脑上运行也是同样错误.请问下大家,应该是缺少了什么环境?
问题可能在
(在操作更新,和插入时候报Run-time error '40002':01000: [Microsoft][ODBC SQL ServerDriver][SQL Server]语句已终止这个错误,
程序在执行查询时候没有错误.)

上代码