Here is a DAO example:


Private Sub CreateTable()
Dim db As DAO.Database
Dim td As TableDef

Set db = DBEngine.Workspaces(0).OpenDatabase("c:\Temp\MyDb1 .mdb")
Set td = pDB.CreateTableDef("Table1")
With td
'Add fields to database
.Fields.Append .CreateField("ID", dbInteger)
.Fields.Append .CreateField("Name", dbText)
.Fields.Append .CreateField("Points", dbDouble)
db.TableDefs.Append td
End With
Set td = Nothing
Set db = Nothing
End Sub

Hth,
Merjet