主题：[求助]在窗口中的combobox绑定数据表，过滤条件想写某列值等于当前自定义用户怎么写

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
Dim d As Date = new Date(Date.Today.Year, Date.today.Month, 1)
cmb.ComboList = DataTables("表A").GetComboListString("型号", "用户 = '" & _UserName & "' And 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#")