关于vbs连接sql server 2005的问题

在win2003 32位下正常连接
在win2003 64位下报错
ADODB.Connection 错误 '800a0ea9'

部分代码：
'连接数据库
Dim connObj,rsObj
Set connObj = CreateObject("ADODB.Connection") 
connObj.ConnectionString = "DRIVER=SQL Server;SERVER=10.7.100.200\SQLEXPRESS;UID=sa;PWD=webbervsb@))*;APP=BGInfo;WSID=10.7.100.200;DATABASE=adinfo" 
connObj.Open
Set rsObj = CreateObject("ADODB.RecordSet")

补充：VB ,  数据库(包含打印，安装，报表)