Access VisualBasic Script

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