Creating an Access database with VB6 should not be intimidating, and it is much simpler than you might think. Four lines of code will do the job.
In your project, simply create a refrence to the latest Microsoft DAO Object Library. On my installation, this is shown as Microsoft DAO 3.6 Object Libary.
Once the necessary reference is made, simply use the following four lines of code to create an Access database:
Dim ws As Workspace
Dim db As Database
Set ws = DBEngine.Workspaces(0)
Set db = ws.CreateDatabase("C:\PathToDatabase\test.mdb", dbLangGeneral)
Make sure the path exists before you run the code, otherwise you’ll get an error.