'Set this to a file path to your SQL script.
Const SCRIPT_FILE = "G:\temp\sqlscript.sql"
'This is your connection string - No you cannot get this from the IMan database.
'See www.connectionstrings.com for more info.
Const DB_CONNECTION = "Driver={SQL Server Native Client 11.0};Server=JAMES\SQL2016;Database=Orders;Uid=accpac;Pwd=accpac;"

Dim con
Dim cmd
Dim fso
Dim ts
Dim sScript

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(SCRIPT_FILE, 1, False)
sScript = ts.ReadAll
ts.Close

Set con = CreateObject("ADODB.Connection")
con.Open DB_CONNECTION

Set cmd = CreateObject("ADODB.Command")
cmd.CommandText = sScript
cmd.ActiveConnection = con
cmd.Execute
Set cmd = Nothing
con.Close
""