Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Makes the admin account the owner of the new workspace

Sub admin()     Dim myWorkspace As Workspace     Set myWorkspace = CreateWorkspace(Name:="Workspace2",UserName:="admin", Password:="", UseType:=dbUseJet) End Sub