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

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 With

Pro_Att表记录
001 大型
002 中型
003 小型
DataCombo显示结果：
大型
中型
小型
我想在第一条记录前加个不属入表里记录的“所有”
DataCombo显示结果：
所有
大型
中型
小型
这个功能怎么实现
象Comboxbox控件的 Comboxbox。additem "所有"

用select 语句解决.这是窍门，呵呵．
SELECT '' as Att_Code, '所有' as Att_Name From Pro_Att
union
SELECT Att_Code, Att_Name From Pro_Att