[VB6] Creare un DB Access con connessione ADO senza utilizzare i DSN

[yyzyyz]

con DAO puoi farlo, aggiungi su progetto > riferimenti microsoft DAO (qualsiasi versione) e poi incolla questo codice sul form:

Private Sub Form_Load()

Dim db As Database
Dim Td As TableDef

' crea il database
Set db = CreateDatabase("C:\tmpDb.mdb", dbLangGeneral & ";pwd=pwd")

' definisce tabella1
Set Td = db.CreateTableDef("Tabella1")
Td.Fields.Append Td.CreateField("Campo1", dbInteger)
Td.Fields.Append Td.CreateField("Campo2", dbText, 50)
Td.Fields.Append Td.CreateField("Campo3", dbBoolean)
Td.Fields.Append Td.CreateField("Campo4", dbDate)

' crea la tabella1
db.TableDefs.Append Td
End Sub