' This runs when user chooses "New Record" from menu
Private Sub MenuNew_Click()
  Dim NewRow As Integer

  ' Add a new row to the recordset
  ' Then set NewRow to revised number of rows
  MyRS.addRows (1)
  NewRow = MyRS.getRowCount

  ' Put initial values in new row of recordset
  MyRS.setField NewRow, "BOOKID", "New"
  MyRS.setField NewRow, "TITLE", "(new)"

  ' Refresh the form controls with new data
  InitControls

  ' "Select" the new row in the list box
  List1.ListIndex = NewRow - 1

End Sub
