vb中无效数据类型 导致它不能执行SQL语句

Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim str
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & "\sports.mdb"
Set rs = New ADODB.Recordset
sql = "select sum(费用合计) as datesumprice from 收费 where 日期='" & Date & "' and 是否结账='已结账'"
rs.Open sql, str, 1, 3
MsgBox "合计金额为：" & datesumprice & "元"

sql = "select sum(费用合计) as datesumprice from 收费 where 日期=#" & Date & "# and 是否结账='已结账'"

access里日期使用##

确定日期是日期类型

Date是函数，变量名改成改成d_Date

查询中日期不用单引号，使用井号#，或用cdate('" & d_date & "')

您好

由于你的问题不详细

我们也很难给你一个正确的答案

建议你将问题继续详细描述一次

你此类问题，必须把表里的字段名和代码中的SQL语句查询都要贴出来

但看你的问题上只有一个SQL语句

缺乏表里的真实字段名，所以很难给你一个正确的SQL语句，望完整问题

尽量不要用中文做字段名与变量名！