I have a good example for you. I removed the error handling and made the tables more generic for you but you'll get the drift. If you just place the code in your project it should work. just remember to reference the ADO type library and change the Data Source.
[tt]
Public Sub CreateDB()
Dim cat As New adox.Catalog
Dim tbl As New Table
Dim keyIndex As New adox.Index
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.