Dim cmd As New SQLCommandDim dt As DataTablecmd.CommandText = "SELECT DISTINCT BRXM From {SFMX} Where RQ = #" & Date.Today & "#")dt = cmd.ExecuteReadere.Form.Controls("CheckedListBox1").Combolist = dt.GetComboListString("BRXM")