Dim sql As String
Dim i As Integer

For i = 8 To rs_jiazai.Fields.Count - 1
sql = " & rs_jiazai.Fields(" & i & ").Name & " & "+" & sql
Next i
sql = Left(sql, Len(sql) - 1)
 shifa1.Text1.Text = sql
 
strsql3 = "update 工资单 set 实发工资=’" & sql & "' where 员工编号='" & a & "'and 年=" & b & " and 月=" & c & ""
------------------------------------------------------------------------------------------报错说类型的问题 个人相信为sql类型有问题，但我用以下形式书写没有问题,请问为什么 应该如何解决a（a，b，c都没有问题的，实发工资是money类型的）
strsql3 = "update 工资单 set 实发工资=" & rs_jiazai.Fields(8).Name & "+" & rs_jiazai.Fields(9).Name & "+" & rs_jiazai.Fields(10).Name & "+" & rs_jiazai.Fields(11).Name & " + " & rs_jiazai.Fields(12).Name & "  where 员工编号=" & a & "and 年=" & b & " and 月=" & c & ""

sql = " & rs_jiazai.Fields(" & i & ").Name & " & "+" & sql
其中多了一个 &。改为：
sql = " rs_jiazai.Fields(" & i & ").Name & " & "+" & sql

字符串是把数字转换成数值计算的吧!你自己去试一下