ADO数据库查询是一种在计算机程序中访问和操作数据库的方法，ADO（ActiveX Data Objects）是一个用于访问各种数据源的COM组件，可以与多种数据库进行交互，如Microsoft SQL Server、Oracle、MySQL等。

以下是一个使用ADO数据库查询的示例：

1、需要确保已经安装了相应的数据库驱动，例如对于Microsoft SQL Server，需要安装SQL Native Client。

2、创建一个新的VBScript文件，然后在文件中输入以下代码：

 Option Explicit Dim objConnection, objRecordset, objCommand Dim strConn, strSQL ' 设置连接字符串，包括服务器名称、数据库名称、用户名和密码 strConn = "Provider=SQLOLEDB;Data Source=服务器名称；Initial Catalog=数据库名称；User ID=用户名；Password=密码" ' 创建一个新的ADO连接对象 Set objConnection = CreateObject("ADODB.Connection") objConnection.Open strConn ' 打开连接 ' 创建一个新的ADO命令对象 Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection ' 设置命令对象的连接为刚刚创建的连接 ' 编写SQL查询语句 strSQL = "SELECT * FROM 表名" ' 设置命令对象的SQL语句 objCommand.CommandText = strSQL ' 执行查询并将结果存储在记录集中 Set objRecordset = objCommand.Execute() ' 遍历记录集并输出结果 While Not objRecordset.EOF     WScript.Echo objRecordset.Fields(0).Value & " " & objRecordset.Fields(1).Value     objRecordset.MoveNext Wend ' 关闭记录集和命令对象，然后关闭连接 objRecordset.Close objCommand.Close objConnection.Close 

3、修改代码中的服务器名称、数据库名称、用户名、密码和表名，以匹配实际的数据库环境。

4、保存并运行脚本，将在命令提示符窗口中输出查询结果。