Dim sProvider As String  
Dim oCatalog As New ADOX.Catalog
 
sProvider = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & App.Path & "\Datenbank.mdb;"
 
oCatalog.Create sProvider

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de