接上面的第二个问题

第一个列表框
Private Sub cmbfield_Click()
cmbname.Clear
Adodc1.RecordSource = "HXKH"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
cmbname.AddItem Adodc1.Recordset.Fields(cmbfield.Text)
Adodc1.Recordset.MoveNext
Loop
cmbname.Text = cmbname.List(0)End Sub第二个列表框
Private Sub cmbname_Click()
Dim condition
condition = cmbfield.Text
If Adodc1.Recordset.Fields(condition).Type = 202 Then
Adodc1.RecordSource = "HXKH where" & condition & " = '" & cmbname.Text & "'"
Else
Adodc1.RecordSource = "HXKH where" & condition & " = " & cmbname.Text
End If
Adodc1.Refresh
txtno.Text = Adodc1.Recordset.Fields("客户编号")
txtname.Text = Adodc1.Recordset.Fields("产品名称")
txtdate = Adodc1.Recordset.Fields("日期")
txtnum.Text = Adodc1.Recordset.Fields("数量")
txtprice.Text = Adodc1.Recordset.Fields("单价")
txtall.Text = Adodc1.Recordset.Fields("金额")
End Sub建立了2个列表框,第一个列表框读取数据库的字段值,可以正常读取,然后第二个列表框,根据第一个列表框的字段,可以相应的选取该字段所有包含的值,可是在我选择了第一个列表框的值后,想再选取第二个列表框除默认以外的值时,就会出现from子语句语法错误,对象Refresh的方法,Iadodc失败.
举例,比如客户编号字段里有1,2,3这3个值,我选择客户编号后,默认在第二个列表框出现1这个值,但是当我想选择2或者3这个值时,就出现上述我所描述的错误了...求解...