vb标准表达式中数据类型不匹配

求救啊!!!!!!!!!!!111
Public Sub 更新wq余额(ByVal x$, ByVal y$, ByVal z$)
'x：表名（物业费信息、取暖费信息表），y：字段（业主ID），
'z：从组合框获取的物业费ID,用于查询满足条件的记录
Dim curdb As Database
Dim curRS As Recordset
Dim X1 As Single, strSQL$, flag As Boolean
Dim Y2 As Single
Set curdb = CurrentDb
strSQL = "Select * From " & x
strSQL = strSQL + " Where " & y & " = '" & z & "'"
Set curRS = curdb.OpenRecordset(strSQL)

'Y2应收金额
Y2 = curRS.Fields("收费标准(元/平米)") * curRS.Fields("建筑面积")
'X1为余额，
X1 = curRS.Fields("实收金额") - Y2 - curRS.Fields("减免金额")
flag = True

curdb.Execute "UPDATE " & x & " SET 应收金额 =" & Y2 & ",余额 =" & X1 & _
",是否收缴 = " & flag & " Where " & y & " ='" & z & "'"
curdb.Close

End Sub

VB 标准表达式中数据类型不匹配 标准表达式中数据类型不匹配 ASP标准表达式中数据类型不匹配!! 标准表达式中数据类型不匹配?? 提示:标准表达式中数据类型不匹配?? ASP 标准表达式中数据类型不匹配 delphi 标准表达式中数据类型不匹配 ASP中 标准表达式中数据类型不匹配。 asp中标准表达式中数据类型不匹配的问题 asp "标准表达式中数据类型不匹配"问题