|
Imports System.Data Imports System.Data.OleDb Imports System.IO Dim dsStr As String Dim dsCn As String Dim mdb As ADOX.Catalog mdb = New ADOX.Catalog() dsStr = "H:\Archivio\_Nasi\adonet\ADO.NET 2.0 Step by Step.zip\SampleDBs\Test.mdb" If File.Exists(dsStr) Then File.Delete(dsStr) End If dsCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dsStr + ";" mdb.Create(dsCn) mdb.ActiveConnection.Close() MessageBox.Show("Finished", "Make DB") |