Set accessApp = GetObject("Access.Application")
accessApp.OpenCurrentDataBase "C:\Users\June\Forums\recur2.mdb"
accessApp.UserControl = False
accessApp.Visible = False
accessApp.Run "TestVBA"
accessApp.DoCmd.RunMacro "TestMacro"
accessApp.Quit
Set cn = CreateObject("ADODB.Connection")
cn.open = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\June\LL\Umpires.accdb"
cn.execute "INSERT INTO Rates(RateID,RateLevel) VALUES('zz','zz')"
cn.Close
Dim db
Dim strFilePath
strFilePath = WScript.Arguments(0)
MsgBox strFilepath
set db = GetObject("C:\Users\June\Forums\recur2.mdb")
db.quit
set db = Nothing