Comunque grazie ugualmente:

codice:
Imports ADOX

Dim dbMyOffice As Catalog = New Catalog

dbMyOffice.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\MyOffice.mdb;Jet OLEDB:Engine Type=5")

dbMyOffice = Nothing