pessima idea non crei la struttura del catalogo così
ci sono molte soluzioni
soluzione

A) [ADO] usare la libreria adox progetto > riferimenti > microsoft ado ext. bla bla bla

codice:
Dim db As New ADOX.Catalog

Private Sub Form_Load()
    
    db.Create "provider = Microsoft.Jet.AdoDb.4.0; data source = c:\new.mdb"
    
End Sub
B)[DAO] usare la libreria Dao progetto > riferimenti > microsoft Dao bla bla bla

codice:
Dim ws() As New Workspace

Private Sub Form_Load()
    ws(1).CreateDatabase parametri
End Sub
C)[alla ca##o] fai un nuovo db in access lo salvi vuoto leggi il file binario in vb e con quella stringa ti crei il file mdb nuovo