1. 打开一个新的 Visual Basic .NET 控制台应用程序。
2. 添加引用 。
3. 然后单击 确定 添加引用 对话框中,、 COM 选项卡, 单击 选择 将其添加到选定组件部分, 和 Microsoft ADO Ext 2.x for DDL and Securiy 。
4. 对 Module 1 删除代码窗口中所有的代码。
5. 以下代码复制并粘贴到代码窗口中:Imports ADOX
Module Module1
Sub Main()
Dim cat As Catalog = New Catalog()
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:/bobi.mdb;" & _
"Jet OLEDB:Engine Type=5;" & _
"Jet OLEDB:Database Password=123465")
cat.WriteLine("Database Created Successfully")
cat = Nothing
End Sub
End Module