With Combo1
Do While Not FrmPower.Adodc2.Recordset.EOF
.AddItem FrmPower.Adodc2.Recordset.Fields(0)
FrmPower.Adodc2.Recordset.MoveNext
Loop
.ListIndex = 0本来是这句 但我需要指定初始显示为我下面指定内容但下面的语句执行显示--------------类型不匹配-------------
.ListIndex = FrmPower.Adodc1.Recordset.Fields(2)
End With