關於資料庫中的Combobox(編號：4931)

現有一個ComboBox　它的程式如下
Private Sub cmbTable_Click()
Dim i As Integer
　　Adodc1.RecordSource = cmbTable.Text
　　Adodc1.Refresh
　　cmbField.Clear
　　For i = 0 To Adodc1.Recordset.Fields.Count - 1
　　　　cmbField.AddItem Adodc1.Recordset.Fields(i).Name
　　　　cmbField.ListIndex = 0
　　Next
End Sub