Sub Form_Load ()
Dim d As database
Dim t As New tabledef
Dim f As New Field
Dim i As New index
'
'   Open the database. ODBC driver will request all
'   required login information.
'
Set d = OpenDatabase("")
'
'Make sure the table dosen't already exist
'
For j = 0 To d.TableDefs.Count - 1
   If d.TableDefs(j).Name = "Presenters" Then
      MsgBox "Table 'Presenters' Already Exists - Exiting"
      Exit Sub
   End If
Next j

t.Name = "Presenters"
'
'Define field one of the table
'
f.Name = "LastName"
f.Type = 10                 'VB Type String
f.Size = 20                 '20 bytes max

t.Fields.Append f
'
'Define field two of the table
'
Set f = New Field           'Reuse the field object
f.Name = "FirstName"
f.Type = 10
f.Size = 20

t.Fields.Append f
'
'Define field three of the table
'
Set f = New Field
f.Name = "Company"
f.Type = 10
f.Size = 40

t.Fields.Append f
'
'Define field four of the table
'
Set f = New Field
f.Name = "Topic"
f.Type = 10
f.Size = 100

t.Fields.Append f
'
'Define an index for the table
'
i.Name = "idx1"
i.Unique = True
i.Fields = "LastName"

t.Indexes.Append i
'
'Now add the table to the database
'
d.TableDefs.Append t

d.Close
'
'Tell the user we did it OK
'
MsgBox "Table 'Presenters' Created"
End Sub

