向各位大师请教二个问题：
第一个问题：
我的数据库当中的一列列名为“新机构代码”。代码如：B20040、B20041、B20042。其中：B20040代表“太阳”； B20041代表“月亮”； B20042代表“星星”。
我在Combo1控件中分别添加了Combo1.List(0) = "太阳": Combo1.List(1) = "月亮": Combo1.List(2) = "星星"。因为代码不好记，所以我想用Combo1控件查找他们各自的代码。我是这样写的代码：
If Adodc1.Recordset.Fields("新机构代码") = "B0001S221020040" Then
Combo1.List(Combo1.ListIndex) = "太阳"
sql = sql & " 新机构代码 = '" & "B0001S221020040" & "'"  '记录新机构
end if
在只查这一个代码的时候还行，并可以正确、顺利地查找到文字所对应的代码，但下面的就出现了问题：
If Adodc1.Recordset.Fields("新机构代码") = "B0001S221020040" Then
           Combo1.List(Combo1.ListIndex) = "太阳"
            sql = sql & " 新机构代码 = '" & "B0001S221020040" & "'"  '记录新机构
            End if
If Adodc1.Recordset.Fields("新机构代码") = "B0001S221020041" Then
           Combo1.List(Combo1.ListIndex) = "月亮"
            sql = sql & " 新机构代码 = '" & "B0001S221020041" & "'"  '记录新机构
            End If
问题是：当在Combo1控件中选择“月亮”时，查找出来的却是“太阳”所代表的代码，并且Combo1中“月亮”也变成了“太阳”。请问这是为什么呢？
第二个问题：
我在家里作好以后，把代码复制到单位的同一窗体上时，不起作用，问题出在：Adodc1.Refresh上面，这又是为什么呢？请大师给指点一下。谢谢！！！