strTarget = "C:\TEMP\MDB\New.mdb"
ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strTarget & ";"
on error resume next
Adox.Create ConnectionString
if Err.Number <> 0 then
WScript.Echo Err.Description
WScript.Quit
end if
on error goto 0
Set Adox = Nothing
|