Dim cmd As New SQLCommandDim dt As DataTablecmd.CommandText = "SELECT DISTINCT BRXM From {SFMX}"dt = cmd.ExecuteReadere.Form.Controls("CheckedListBox1").Combolist = dt.GetComboListString("BRXM","RQ = #"& Date.Today & "#")
"RQ = #"& Date.Today & "#",加入后错误。