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