[データベースを開く]

Microsoft Access に付属しているサンプルデータベース（Northwind.mdb）を開きます。

【ソースコード】

[tips0139.vbs]
Option Explicit
On Error Resume Next

Dim strDbName   ' データベース名
Dim objAdoCon   ' ADO 接続

strDbName = "Northwind.mdb"
Set objAdoCon = WScript.CreateObject("ADODB.Connection")
If Err.Number = 0 Then
    objAdoCon.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & strDbName
    objAdoCon.Open
    WScript.Echo "ADO のバージョンは " & objAdoCon.Version & " です。"
    objAdoCon.Close
Else
    WScript.Echo "エラー：" & Err.Description
End If
Set objAdoCon = Nothing

【実行結果】

C:\> cscript //NoLogo tips0139.vbs
ADO のバージョンは 2.5 です。