Inserimento record Access 2003 con VisualBasic Script

Con questa routine in VBA inserisco un altro record in un database di Access 2003:
Public Sub DATIAziendaInserisce()
Dim Cnn1 As ADODB.Connection
Dim recup As Long
Set Cnn1 = New ADODB.Connection
Cnn1.CursorLocation = adUseServer
Cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Azienda.mdb;User Id=Admin; Password="
Set MonRs = New ADODB.Recordset
With MonRs
.CursorLocation = adUseServer
.Open "SELECT * From Fatture", Cnn1, adOpenKeyset, adLockPessimistic, adCmdText
.AddNew
![FatturaNum] = "123"
![FatturaData] = "12/10/2012"
![DataFirma] = Date
![Documento] = ActiveDocument.FullName
.Update
End With
End Sub
Funziona a dovere nell'ambiente VBA ma io vorrei adattarla ad un File batch con Visual Basic Script da lanciare direttamente dal desktop di Windows, in modo da non dovere per forza aprire l'IDE - VBA di qualche applicazione Office (Word,Excel,etc.): però non so quali modifiche apportare per trasformarla in un file Batch di VBScript.
Qualcuno sa darmi un suggerimento?