请教VB+ACCESS的有关问题

我编了个数据库程序，是VB+access的。现在出了点问题，显示的是“实时错误‘-2147467259（80004005）’查询过于复杂”
具体代码如下：
Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\motor_info.mdb;Persist Security Info=False"
Adodc4.CommandType = adCmdText
Adodc4.RecordSource = "select * from 负载表  where 负载表.number='" + Trim(Text16.Text) + "' "
Adodc4.Refresh
With Adodc4.Recordset
If .RecordCount > 0 Then
'保存负载信息
 .Fields("number") = Trim(Text16)
 .Fields("Uo1") = Val(Text1(0)): .Fields("电压倍率1") = Val(Text2(0)): .Fields("Ioa1") = Val(Text3(0)): .Fields("Iob1") = Val(Text4(0)): .Fields("Ioc1") = Val(Text5(0)): .Fields("电流倍率1") = Val(Text6(0)): .Fields("Poa1") = Val(Text7(0)): .Fields("Pob1") = Val(Text9(0)): .Fields("转矩1") = Val(Text12(0)): .Fields("转速1") = Val(Text13(0)): .Fields("tt温度1") = Val(Text11(0)): .Fields("频率1") = Val(Text8(0))
 .Fields("Uo2") = Val(Text1(1)): .Fields("电压倍率2") = Val(Text2(1)): .Fields("Ioa2") = Val(Text3(1)): .Fields("Iob2") = Val(Text4(1)): .Fields("Ioc2") = Val(Text5(1)): .Fields("电流倍率2") = Val(Text6(1)): .Fields("Poa2") = Val(Text7(1)): .Fields("Pob2") = Val(Text9(1)): .Fields("转矩2") = Val(Text12(1)): .Fields("转速2") = Val(Text13(1)): .Fields("tt温度2") = Val(Text11(1)): .Fields("频率2") = Val(Text8(1))
 .Fields("Uo3") = Val(Text1(2)): .Fields("电压倍率3") = Val(Text2(2)): .Fields("Ioa3") = Val(Text3(2)): .Fields("Iob3") = Val(Text4(2)): .Fields("Ioc3") = Val(Text5(2)): .Fields("电流倍率3") = Val(Text6(2)): .Fields("Poa3") = Val(Text7(2)): .Fields("Pob3") = Val(Text9(2)): .Fields("转矩3") = Val(Text12(2)): .Fields("转速3") = Val(Text13(2)): .Fields("tt温度3") = Val(Text11(2)): .Fields("频率3") = Val(Text8(2))
 .Fields("Uo4") = Val(Text1(3)): .Fields("电压倍率4") = Val(Text2(3)): .Fields("Ioa4") = Val(Text3(3)): .Fields("Iob4") = Val(Text4(3)): .Fields("Ioc4") = Val(Text5(3)): .Fields("电流倍率4") = Val(Text6(3)): .Fields("Poa4") = Val(Text7(3)): .Fields("Pob4") = Val(Text9(3)): .Fields("转矩4") = Val(Text12(3)): .Fields("转速4") = Val(Text13(3)): .Fields("tt温度4") = Val(Text11(3)): .Fields("频率4") = Val(Text8(3))
 .Fields("Uo5") = Val(Text1(4)): .Fields("电压倍率5") = Val(Text2(4)): .Fields("Ioa5") = Val(Text3(4)): .Fields("Iob5") = Val(Text4(4)): .Fields("Ioc5") = Val(Text5(4)): .Fields("电流倍率5") = Val(Text6(4)): .Fields("Poa5") = Val(Text7(4)): .Fields("Pob5") = Val(Text9(4)): .Fields("转矩5") = Val(Text12(4)): .Fields("转速5") = Val(Text13(4)): .Fields("tt温度5") = Val(Text11(4)): .Fields("频率5") = Val(Text8(4))
 .Fields("Uo6") = Val(Text1(5)): .Fields("电压倍率6") = Val(Text2(5)): .Fields("Ioa6") = Val(Text3(5)): .Fields("Iob6") = Val(Text4(5)): .Fields("Ioc6") = Val(Text5(5)): .Fields("电流倍率6") = Val(Text6(5)): .Fields("Poa6") = Val(Text7(5)): .Fields("Pob6") = Val(Text9(5)): .Fields("转矩6") = Val(Text12(5)): .Fields("转速6") = Val(Text13(5)): .Fields("tt温度6") = Val(Text11(5)): .Fields("频率6") = Val(Text8(5))
 .Fields("Uo7") = Val(Text1(6)): .Fields("电压倍率7") = Val(Text2(6)): .Fields("Ioa7") = Val(Text3(6)): .Fields("Iob7") = Val(Text4(6)): .Fields("Ioc7") = Val(Text5(6)): .Fields("电流倍率7") = Val(Text6(6)): .Fields("Poa7") = Val(Text7(6)): .Fields("Pob7") = Val(Text9(6)): .Fields("转矩7") = Val(Text12(6)): .Fields("转速7") = Val(Text13(6)): .Fields("tt温度7") = Val(Text11(6)): .Fields("频率7") = Val(Text8(6))
 .Fields("Uo8") = Val(Text1(7)): .Fields("电压倍率8") = Val(Text2(7)): .Fields("Ioa8") = Val(Text3(7)): .Fields("Iob8") = Val(Text4(7)): .Fields("Ioc8") = Val(Text5(7)): .Fields("电流倍率8") = Val(Text6(7)): .Fields("Poa8") = Val(Text7(7)): .Fields("Pob8") = Val(Text9(7)): .Fields("转矩8") = Val(Text12(7)): .Fields("转速8") = Val(Text13(7)): .Fields("tt温度8") = Val(Text11(7)): .Fields("频率8") = Val(Text8(7))
 .Fields("负载温度") = Val(Text20): .Fields("冷态端电阻") = Val(Text14): .Fields("冷态绕组温度") = Val(Text18): .Fields("极对数") = Val(Text22): .Fields("铁损耗") = Val(Text15): .Fields("风靡耗") = Val(Text19): .Fields("△T") = Val(Text10): .Fields("温升最高温度") = Val(Text23): .Fields("温升电阻") = Val(Text24): .Fields("额定频率") = Val(Text26): .Fields("额定功率") = Val(Text25)
  strmessage = "是否保存当前数据？"
  If MsgBox(strmessage, vbYesNo) = vbYes Then
  .Update
  Else
  .CancelUpdate
  End IfEnd If
.Close
End With
运行时，错误提示在 .update 这行
请教哪位XDJM帮忙指点下