Sub Form_Load ()
Dim d As database
Dim ds As dynaset
'
'   Open the database. ODBC driver will post a
'   dialog box to get the login info.
'
Set d = OpenDatabase("")
'
'   Create a dynaset against the "Presenters" table
'
Set ds = d.CreateDynaset("Presenters")
'
' Check for existing data. If there is data, we either
' have already run this program or there was a table
' named 'Presenters' already defined.
'
If Not ds.EOF Then
   MsgBox "Table 'Presenters' Already Has Data - Exiting"
   Exit Sub
End If
'
'   Now fill in the table
'

ds.AddNew
ds("LastName") = "Fawcette"
ds("FirstName") = "James"
ds("Company") = "Fawcette Technical Publications"
ds("Topic") = "Introduction, Overview"
ds.Update

ds.AddNew
ds("LastName") = "Button"
ds("FirstName") = "Tom"
ds("Company") = "Microsoft"
ds("Topic") = "1. Microsoft Vision for Developers 2. NDA Session: Apps Programmability"
ds.Update

ds.AddNew
ds("LastName") = "Podradchik"
ds("FirstName") = "Steve"
ds("Company") = "Microsoft"
ds("Topic") = "1. Moving QB & PDS Apps to VB/DOS 2. Creating and Maintaining Cross Platform DOS/WIN Apps"
ds.Update

ds.AddNew
ds("LastName") = "Engel"
ds("FirstName") = "Larry"
ds("Company") = "Microsoft"
ds("Topic") = "Optimizing VB/WIN Code"
ds.Update

ds.AddNew
ds("LastName") = "Keane"
ds("FirstName") = "Tim"
ds("Company") = "Microsoft"
ds("Topic") = "1. Optimizing VB/DOS Code 2. DOS Memory Management"
ds.Update

ds.AddNew
ds("LastName") = "Radditz"
ds("FirstName") = "Rick"
ds("Company") = "Microsoft"
ds("Topic") = "New Features of Visual Basic/Win 2.0"
ds.Update

ds.AddNew
ds("LastName") = "Taylor"
ds("FirstName") = "Jim"
ds("Company") = "AJS Publishing, Inc."
ds("Topic") = "1. XBASE and Visual Basic  2. Creating Networked DBMSs with Visual Basic"
ds.Update

ds.AddNew
ds("LastName") = "Elliott"
ds("FirstName") = "Tony"
ds("Company") = "EllTech"
ds("Topic") = "1. Network/Multiuser Database Programming 2. Advanced DOS UI Design"
ds.Update

ds.AddNew
ds("LastName") = "Reynolds"
ds("FirstName") = "Kris"
ds("Company") = "Microsoft"
ds("Topic") = "1. Extending VB/WIN with DDE & OLE 2. Multimedia in VB"
ds.Update

ds.AddNew
ds("LastName") = "Wyman"
ds("FirstName") = "Bob"
ds("Company") = "Microsoft"
ds("Topic") = "Using Microsoft Solution Development Framework"
ds.Update

ds.AddNew
ds("LastName") = "Pleas"
ds("FirstName") = "Keith"
ds("Company") = "Independent Consultant"
ds("Topic") = "Practical Implementation of DDE & OLE"
ds.Update

ds.AddNew
ds("LastName") = "Wisniewski"
ds("FirstName") = "Gary"
ds("Company") = "APEX Software Corporation"
ds("Topic") = "How to use Draw & Drop with MDI to Create Great Database UIs"
ds.Update

ds.AddNew
ds("LastName") = "Winer"
ds("FirstName") = "Ethan"
ds("Company") = "Cresent Software"
ds("Topic") = "Tips, Tricks & Techniques for DOS Basics"
ds.Update

ds.AddNew
ds("LastName") = "Appleman"
ds("FirstName") = "Daniel"
ds("Company") = "Desaware, Inc."
ds("Topic") = "Accessing Windows API from VB"
ds.Update

ds.AddNew
ds("LastName") = "Nasci"
ds("FirstName") = "Rick"
ds("Company") = "Microsoft"
ds("Topic") = "Using ODBC, The New DBMS Connectivity Standard"
ds.Update

ds.AddNew
ds("LastName") = "Modica"
ds("FirstName") = "Joe"
ds("Company") = "Sheridan Software"
ds("Topic") = "Windows UI Design"
ds.Update

ds.AddNew
ds("LastName") = "Risher"
ds("FirstName") = "David"
ds("Company") = "Microsoft"
ds("Topic") = "Creating Database Applications with Microsoft"
ds.Update

ds.AddNew
ds("LastName") = "Franklin"
ds("FirstName") = "Carl"
ds("Company") = "Cresent Software"
ds("Topic") = "Graphics & Animation in Windows"
ds.Update

ds.AddNew
ds("LastName") = "Motsinger"
ds("FirstName") = "David"
ds("Company") = "Pioneer Software"
ds("Topic") = "Access 17 DBMS Formats"
ds.Update
'
'Tell user all is well
'
MsgBox "Records successfully added to Table 'Presenter'"
End Sub

