Sub CreateDatabase()
    Const DatabaseName = "c:\x.accdb"

    On Error Resume Next
    Kill DatabaseName
    On Error GoTo 0
    Dim cat As New ADOX.Catalog: cat.Create "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DatabaseName
    Dim cn As New ADODB.Connection

   cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DatabaseName & ";Persist Security Info=False;"
   cn.Execute "CREATE TABLE tblSequential (col1 long, col2 text(75));"
End Sub

Ad blocker interference detected!

Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.