wrote ...

dba.OpenCurrentDatabase filepath:=stgPath,[Exclusive =
false], bstrPassword = test

Just a guess but you may want:

dba.OpenCurrentDatabase _
filepath:=stgPath, _
Exclusive:= False, _
bstrPassword:= "test"

Or briefer:

dba.OpenCurrentDatabase stgPath, False, "test"

If test is a variable, omit the quotes.

Jamie.

--