[求助]Combobox问题?
请教:
Private Sub Form_Load()
Dim bl()
Dim jl As Integer
Adodc2.ConnectionString = Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=F:\用地指标\用地指标.mdb;Persist Security Info=False"
Adodc2.RecordSource = "区域修正系数"
jl = Adodc2.Recordset.RecordCount
Text1.Text = jl
For i = 0 To jl
Combo1.AddItem 区域修正系数.Fields("城市") *****这句错
Next
End Sub
错误提示为"实时错误424,要求对象"
