Private Sub cmdReset_Click() 'Use one of these to clear the data... ' MSHFlexGrid1.Clear MSHFlexGrid1.ClearStructure ' Reasign the column headers... MSHFlexGrid1.ColHeaderCaption(0, 0) = "Publication" MSHFlexGrid1.ColHeaderCaption(0, 1) = "City" MSHFlexGrid1.ColHeaderCaption(0, 2) = "Country" ' Clear the other data entry objects to allow a new user selection... cboPublisher.Text = "" cboCity.Text = "" cboCountry.Text = "" End SubTom