列名肯定写错了,或者表格里没有此列,表达式列不能直接写。
cmd.CommandText = "Select Sum(收款总额) Fr om {收款明细表} Where year(收款日期) = '" & Date.today.year & "'"