home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP33 / 309X3504.TXT < prev    next >
Encoding:
Text File  |  1998-04-29  |  402 b   |  20 lines
  1.  
  2. Public Sub AddNew()
  3.  
  4.     Const SQL = "Select CustomerID From Customers"
  5.     Dim intDataPtr As Integer
  6.  
  7.     intDataPtr = datCustomerDB.Count
  8.     dbgCustGrid.ClearFields
  9.     Load datCustomerDB(intDataPtr)
  10.     Set datCustomerDB(0).Recordset = datCustomerDB(0).Database.OpenRecordset(SQL)
  11.     dbgCustGrid.ReBind
  12.  
  13. End Sub
  14.  
  15. Private Sub AddDataSourceMenu_Click()
  16.  
  17.     Call AddNew
  18.  
  19. End Sub
  20.