Dim cmd As New SQLCommand Dim dt As DataTable Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1") cmd.C cmd.CommandText = "SELECT DISTINCT Name From {Users}" dt = cmd.ExecuteReader() For Each dr As DataRow In dt.Datarows lst.Items.Add(dr("Name")) Next If Lst.Items.Count > 0 Then lst.SelectedIndex = 0 End If