如何用代码给动态组合框赋值

lazybird

当组合框的数据源为动态时（），如何用代码将数据源的第一行（或者其他行）赋值给组合框。

比如说，组合框 cobEmpName 的数据源为动态（随着 txtDepartment 的值改变）：
"SELECT Table1.EmpName FROM Table1 WHERE (((Table1.Department)=[Forms]![Form1]![txtDepartment]))"

改变后如何将数据源中的某一行赋值给组合框作为默认值。

想了几个方法都觉得好复杂，高手帮看看有没有简便的方法，多谢了。