[レコードを追加する]

test.mdb のテストテーブルに新規レコードを作成します。
定数定義ファイルの読み込み関数(IncludeAdoDefine)を使用しています。(ソースコードは省略します)

【ソースコード】
[tips0147.vbs]
Option Explicit
On Error Resume Next

Dim strDbName   ' データベース名
Dim blnRetCode  ' 戻り値
Dim objAdoCon   ' ADO 接続
Dim strSqlStmt  ' SQL 文

strDbName = "test.mdb"
' ADO 定数の読み込み
blnRetCode = IncludeAdoDefine()
If blnRetCode = True Then
    Set objAdoCon = WScript.CreateObject("ADODB.Connection")
    If Err.Number = 0 Then
        objAdoCon.ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & strDbName
        objAdoCon.Open

        strSqlStmt = "INSERT INTO テスト" & _
                    " (番号, 名称)" & _
                    " VALUES" & _
                    " (123, 'テスト')"
        objAdoCon.Execute strSqlStmt, , adExecuteNoRecords
        If Err.Number = 0 Then
            WScript.Echo "レコードを追加しました。"
        Else
            WScript.Echo "エラー:" & Err.Description
        End If

        objAdoCon.Close
    Else
        WScript.Echo "エラー:" & Err.Description
    End If

    Set objAdoCon = Nothing
End If

【実行結果】
C:\> cscript //NoLogo tips0147.vbs
レコードを追加しました。