Difference of WorkSpace in VB4 and SetDefaultWorkSpace in VB3

MORE INFORMATION

Step-by-Step Example

1. Start Visual Basic or on the File menu, click New Project (ALT, F, N) if Visual Basic is already running. Form1 is created by default.
2. Add two Command buttons (Command1, and Command2) to Form1.
3. Add the following code to the Command1_Click event:

      Private Sub Command1_Click()
        Dim ws As Workspace
        Dim db As Database
        Dim tbl As Recordset
        Set ws = Workspaces(0)
        Set db = ws.OpenDatabase("biblio.mdb")
        Set tbl = db.OpenRecordset("titles", dbOpenTable)
        Do Until tbl.EOF
          Print tbl("title")
          tbl.MoveNext
        Loop
      End Sub
   						

4. Add the following code to the Command2_Click event:

      Private Sub Command2_Click()
        Dim NewSpace As Workspace
        DBEngine.IniPath = "C:\windows\vb.INI"
        Set NewSpace = DBEngine.CreateWorkspace("New", "Admin", "")
        DBEngine.Workspaces.Append NewSpace
      End Sub
   						

5. On the Run menu, click Start (ALT, R, S), or press the F5 key to run the program. Click the Command1 button to open the default workspace similar to the Visual Basic 3.0 default workspace, then click the Command2 button to create a new Workspace.