ADOX Creare Database con ADOX

Imports ADOX

Module Module1

Sub Main()

Dim cat As Catalog = New Catalog()

cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\AccessDB\NewMDB.mdb;" & _
"Jet OLEDB:Engine Type=5")

Console.WriteLine("Database Created Successfully")

cat = Nothing

End Sub

End Module