无论是ADO,还是ADO.NET都没有提供创建Access数据库的功能,如果您希望创建一个Access数据库,可以使用Microsoft ADO Ext. 2.7 for DDL and Security (ADOX)。在添加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