DataCombo绑定数据库 我想它还另外增加一项不属入表的记录 如“所有”

Question

Set RstX = New ADODB.Recordset
StrSql = "SELECT Att_Code, Att_Name From Pro_Att "
RstX.Open StrSql, Cn, adOpenKeyset, adLockOptimistic
With DataCombo
Set .RowSource = RstX
.BoundColumn = "Att_Code"
.ListField = "Att_Name"
End WithPro_Att表记录
001 大型
002 中型
003 小型
DataCombo显示结果：
大型
中型
小型
我想在第一条记录前加个不属入表里记录的“所有”
DataCombo显示结果：
所有
大型
中型
小型
这个功能怎么实现 
象Comboxbox控件的 Comboxbox。additem "所有"

Answer 1

用
select '' as Att_Code, '所有' as Att_Name
union
SELECT Att_Code, Att_Name From Pro_Att