VB如何通过combobox的选择，查询数据 显示在listbox里面？假如我在combo选择部门，在list里面显示部门下的所有人员

--------------------编程问答-------------------- 顺便谁告诉我下，比如我的身份证号35040219901018****  怎么样才能让他最后4位数字显示为*号 --------------------编程问答-------------------- 身份证显示你只需要取前14位，再加上****即可
如 text1.text = left(id,14) & "****" --------------------编程问答-------------------- 利用format将后四位设为“****” --------------------编程问答-------------------- 具体怎么用呢

补充：VB ,  数据库(包含打印，安装，报表)