Converting VB DB to a Daily Quote Applet
(Developer's Version)

Private Sub CreateDataFields()

' ***** MODIFY *****

' Before creating fields, modify the FIELD_INDEX Enum in bVBDB.bas
' Then use the values from the Enum as subscripts for your fields

' Note: You can assign the Constant CurrentDateTime (-1) to a date
' field if you want the value Now() to be used as the default.

With m_FieldDefinitions(FIELD_01)
  .ArrayField = False
  .DataType = dataBoolean
  .DefaultValue = False
  .FieldName = "Boolean 1"
  .Index = NewFieldIndex
  .Required = False
  .RequireUniqueEntry = False
  .SystemField = False
End With

' Code for remaining fields not shown for brevity

' ***** END MODIFY *****

End Sub

Private Sub CreateDataFields()

' Add code to define the two fields we created in
' the FIELD_INDEX Enum.

' Create QUOTE_TEXT Field
With m_FieldDefinitions(QUOTE_TEXT)
  .ArrayField = False
  .DataType = dataString ' Data type for the field
  .DefaultValue = vbNullString
  .FieldName = "Quote" ' Field display name
  .Index = NewFieldIndex
  .Required = True
  .RequireUniqueEntry = False
  .SystemField = False
End With

' Create QUOTE_AUTHOR Field
With m_FieldDefinitions(QUOTE_AUTHOR)
  .ArrayField = False
  .DataType = dataString
  .DefaultValue = "Anonymous"
  .FieldName = "Author"
  .Index = NewFieldIndex
  .Required = True
  .RequireUniqueEntry = False
  .SystemField = False
End With

End Sub