vb adodc 控件的问题

界面有两个COMBO控件，combo1是存放字段名称的，combo2存放字段值
代码如下：
Private Sub Form_Load() '载入时把字段名添加到combo1中
Adodc1.RecordSource = "select * from 基本信息"
Adodc1.Refresh
Combo1.Clear
Dim i
For i = 0 To Adodc1.Recordset.Fields.Count - 1
Combo1.AddItem Adodc1.Recordset.Fields(i).Name
Next i
Combo1.Text = Combo1.List(0)
End Sub

Private Sub Combo1_click() '在combo1中选择字段名，combo2中把所有该字段中的值列出来
Adodc1.RecordSource = "select * from 基本信息"
Adodc1.Refresh
Combo2.Clear
While Not Adodc1.Recordset.EOF
Combo2.AddItem Adodc1.Recordset.Fields(Combo1.Text)
Adodc1.Recordset.MoveNext
Wend
Combo2.Text = Combo2.List(0)
End Sub

Private Sub Combo2_click()
Dim c
c = Trim(Combo1.Text)
If Adodc1.Recordset.Fields(c).Type = 202 Then
Adodc1.RecordSource = "select * from 基本信息 where" & c & "='" & Combo2.Text & "'"
Else

vb的adodc控件的问题 vb中adodc控件和datagrid的问题？ VB adodc的路径问题 vb编程问题,请教大侠,我用adodc控件连数据库里面的图片,如何保存 在VB中使用ADODC控件访问ACCESS数据库问题 VB用ADODC控件连ACCESS数据库问题 关于VB中的adodc控件（更新数据出现问题） VB和ADODC应用的一个问题 vb ADODC问题 在VB中ADODC控件怎么用？？？