统计列:总和语句错//拜托;高手请进在看看到底错在哪里没答案:谁解答正确.给饼图原程序


Public conn As New ADODB.Connection
 
Private Sub Command1_Click()
Dim rs_famshouru As New ADODB.RecordsetDim sql As String
sql = "select sum (收入金额)as 家庭总收入金额 from 家庭收入 "conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\FamST.mdb;Persist Security Info=False"rs_famshouru.Open sql, conn, adOpenKeyset, adLockPessimistic
MsgBox rs_famshouru.RecordCount:::......显示结果是是1.说明是大于0的.
If rs_famshouru.RecordCount > 0 Then Text1.Text = rs_famshouru.Fields(0)
rs_famshouru.Close
数据库是:ACCESS,运行结果确实没答案:
我的目的是:把列统计的结果显示在:Text1.Text 中.
请问高手到底还要怎么改写:
可以在线指导:182426263.谢谢了 如果把IF改一下If rs_famshouru.RecordCount > 0  and len(trim(rs_famshouru.fields(0)))>0 Then 
 Text1.Text = rs_famshouru.Fields(0)
end IF
同样的结果:没运行答案; ACCESS数据库有数据哈.
 但还不知道直接ACCESS表中统计数据列和.   但给是有条件的:谁的指第一个正确才是哈.还有:留下你的MEIL----骗人是小狗