Why this code isn't working cmbSezioni.clear FOR EACH rData cmbSezioni.Add(rData["Sezione"]) NEXT It gives me "Index out of Range" It seems that when I delete the content of a combobox, its index goes to -1. Francesco