vbscript查询SQL Server 2005 有关问题

vbscript查询SQL Server 2005 问题
我不是在网页中调用 vbscript
而是在一个PLC的 组态软件中 使用

用下面代码
  set conn=server.createobject("adodb.connection")
  conn.open "provider=sqloledb;server=XYQ\XYQ;database=SanCe;uid=sa;pwd=1234;"  
  set rs = conn.execute("select Run from GWRun Where GW='A1'")  
  do while not rs.eof  
  msgbox rs("Run")  
  rs.movenext  
  loop  
  rs.close  
  conn.close  
  set conn=Nothing

报错，错误信息：Microsoft VBScript 运行时错误: 缺少对象: 'server'
看出来 server 没定义，可是 这个 server 怎么定义呢？

------解决方案--------------------
如果是在VB里,是用:CreateObject("Adodb.Connection")

如果是在ASP里:Server.CreateObject("Adodb.Connection")

区别就是VB里不存在Server对象,直接Createobject就可以了~~!