Vbscript 来自HTA应用程序的ADODB引用

我需要一个HTA应用程序，它使用

ADO

技术显示来自

mdb

的数据

我的代码是这样开始的：

Function getData()
Dim pathname
pathname = "D:\\WP\\ADO\\ADOexamples.mdb"
Dim con 'As New ADODB.Connection
Dim rs 'As New ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
Set con = New ADODB.Connection

我得到一个错误：

Class undefined ADODB.

---

显然，这是因为我需要包含ADODB引用。但是如何在

.hta

文件中创建ADO对象？

在VBScript中不能以这种方式创建ADO对象。改用：

或者使用它们的数值。

您可能需要查看，尽管它没有一个可接受的答案。

pathname = "D:\\WP\\ADO\\ADOexamples.mdb"
Dim con 'As New ADODB.Connection
Dim rs 'As New ADODB.Recordset
Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
Set con = CreateObject("ADODB.Connection")

Const adOpenStatic     = 3
Const adLockOptimistic = 3