Dim cat As New ADOX.Catalog Dim sCreateString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" <database name> & ".mdb" cat.Create(sCreateString)
cat.Create(sCreateString)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)