by Anonymous (267 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 24th July 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Create a MS Access database using 4 lines of code
Dim ws As Workspace
Dim db As Database
Set ws = DBEngine.Workspaces(0)
'substitute Password with the desired password
Set db = ws.CreateDatabase("test.mdb", dbLangGeneral & ";pwd=Password")