StaffComboBox.Items.Clear
Dim LookupRS As ResultSet
LookupRS = MainDB.ExecQuery("SELECT StaffName, StaffID FROM Staff ORDER BY StaffName ASC")
Do While LookupRS.NextRow
Dim NewDataLabel As Label
NewDataLabel.Initialize("")
NewDataLabel.Text = LookupRS.GetString("StaffName")
NewDataLabel.Tag = LookupRS.GetInt("StaffID")
StaffComboBox.Items.Add( NewDataLabel )
Loop