Jobs
Author: Brandon Date Submitted: 9/28/2005 Category: Other Compatibility: VB 6 This code has been accessed 5050 times.
Email Yourself this snippet:
Dim ws As Workspace Dim db As Database
Code
Set ws = DBEngine.Workspaces(0) 'set up a new workspace Set db = ws.CreateDatabase("C:\db1.mdb", dbLangGeneral) 'create database from workspace
