Private Sub Form_Load() 
Dim i As Integer 
Adodc1.RecordSource = "select * from 库存表" '连接库存表 
Adodc1.Refresh                        '刷新连接 
cmbfield.Clear                        '清空cmbfied 
For i = 0 To Adodc1.Recordset.Fields.Count - 1 
'将每个字段的名字作为一个项目，添加到cmbfield中 
cmbfield.AddItem Adodc1.Recordset.Fields(i).Name 
Next i 
cmbfield.Text = cmbfield.List(0)      '默认显示第一项 
End Sub 


小弟刚刚学习VB，可按教程写上上述代码，却执行起来显示refresh 的方法 iadodc 失败，请各位高手们帮帮忙。