Dim i As Integer
For i = 0 To 21
    Adodc1.Recordset.Fields(i).Value = Text1(i).Text
    Debug.Print i
    Debug.Print Adodc1.Recordset.Fields(i).Value
Next
Adodc1.Recordset.Fields(22).Value = Combo1.TextAdodc1.Recordset.Update  《---出错:键列信息不足或不正确,更新影响到了更多的行。我的adodc1是绑定在一个表上的,表中只有23个项。