Option Explicit
Dim WshShell, SystemRoot, fso, envir

Set WshShell = CreateObject("WScript.Shell")
SystemRoot = WshShell.ExpandEnvironmentStrings("%SystemRoot%")
Set WshShell = Nothing
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(SystemRoot & "\System32\msjet40.dll") Then
    envir = "32"
Else
    envir = "64"
End If
Set fso = Nothing
WScript.Echo "Running in " & envir & "-bit environment."

Dim strProvider, con
strProvider = "Microsoft.ACE.OLEDB.12.0"
WScript.Echo "strProvider = """ & strProvider & """"
Set con = CreateObject("ADODB.Connection")
With con
    .Provider = strProvider
    .Open "C:\Users\Public\Database1.accdb"
End With
WScript.Echo "Connection established."
con.Close