Use ADOX
VB Code:
  1. Dim catADO    As ADOX.Catalog
  2.  
  3. catADO.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TestDatabase.mdb"
for details see my site...