如何在vbscript中运行sql查询

我想编写一个脚本，用于进入数据库、运行查询并在html界面中丢弃结果 有人知道这方面的有效解决方案吗？

我发现这个解决方案：

Set obj=createobject（“ADODB.Connection”） Set obj1=createobject（“ADODB.RecordSet”） Dim dbquery
Dbquery=“从dbo.acct中选择acctno，其中name='Harsh'” obj.Open“Provider=SQLQLEDB；Server=。\SQLEXPRESS；UserId=test；Password=P@123；数据库=自动数据库“
obj1.打开数据库查询，obj
val1=obj1.fields.item（0） msgbox val1
对象关闭
obj1.关闭
设置obj1=无
Set obj=无

但我无法让它清除查询的内容