per creare un database direttamente da codice ci sono più metodi
ma visto che siamo nel 2004 vi dico solo quello ado

è necessario inserire il riferimeto a Microsoft ADO Ext. 2.X for DDL and Security dal menù progetto riferimenti

codice:
    Dim tbl As New Table
    Dim cat As New ADOX.Catalog
    ' così si crea il database
    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=c:\nuovo.mdb"
    'così si crea una tabella
    tbl.Name = "MiaTabella"
    tbl.Columns.Append "Colonna1", adInteger
    tbl.Columns.Append "Colonna2", adInteger
    tbl.Columns.Append "Colonna3", adVarWChar, 50
    cat.Tables.Append tbl