While TuoReader.Read TuoListView.Items.Add(TuoReader("Campo1").ToString) etc....etc... ...... End While