我用VB编一个统计总金额的程序，想让统计结果显示在Label2里面但是总是有错，求高手指教，程序代码如下

编写应用程序（VB），计算上网费用，计算方法如下~

Private Sub Command1_Click()

Dim h As Integer, c As Single

h = Val(InputBox("请输入上网时间", "输入"))

Select Case h
Case -1
End
Case Is < 10
c = 25
Case Is < 50
c = 2 * h
Case Is < 100
c = 1.5 * h
Case Is < 200
c = 1 * h
Case Is > 200
c = 200
End Select

msgbox "上网费用为" & c & "元", vbOKOnly, "输出"

End Sub

Private Sub Command1_Click() '记录
If IsNumeric(Text1.Text) Then
Open "D:\jilu.txt" For Append As #1 '打开记录文件
Print #1, Date; "|"; '保存日期
Print #1, Text1.Text '保存盈利值
Close #1 '关闭文件
Else
MsgBox "请输入数字！", vbCritical '显示错误信息
End If
End Sub

Private Sub Command2_Click() '统计
Dim s As String, Profit As Currency, n As Long, t As Currency, r As Integer, max, min
Open "D:\jilu.txt" For Input As #1 '打开记录文件
Do While Not EOF(1) '文件未结束则循环
Line Input #1, s '读取一条记录
n = n + 1
t = Val(Right(s, Len(s) - InStr(s, "|")))
If n = 1 Then max = t: min = t
If t >= 0 Then r = r + 1
If max < t Then max = t
If min > t Then min = t
Profit = Profit + t '累加
Loop
Close #1 '关闭文件
'显示盈利情况
MsgBox "总盈利：" & Profit & vbCrLf & _
"记录的总次数：" & n & vbCrLf & _
"总盈利：" & Profit & vbCrLf & _
"盈利次数/亏损次数：" & r & "/" & n - r & vbCrLf & _
"成功率：" & Format(r / n, "Percent") & vbCrLf & _
"最大的一次盈利" & max & vbCrLf & _
"最大的一次亏损" & min
End Sub

控件设置要么用纯代码,要么就直接在里面设置.你SQL语句里用的全是中文括号,语法也错了没给查询分组怎么汇总,全换成英文的,ADO控件不能这样指定连接,Label控件用Caption属性,全部要改一下:
Private Sub Label2_Click()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS路径\ACCESS完整名称"
Adodc1.RecordSource = "select sum([金额（元）]) as [总计金额（元）] from TABLE1 Group By [金额（元）] "
Adodc1.Refresh
Lable2.Caption= Adodc1.Recordset.Fields("[总计金额（元）]")
End Sub
这样才算完工,ADO控件里面一个属性都不要去动,DataGrid1里面DataSource属性改成Adodc1

栏位名称不能用（

运行的时候提示我Adodc1找不到文件.。我的数据库在D:\餐饮管理系统\zj_Data
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\餐饮管理系统\zj_Data.mdb"

你的数据库名是zj_Data.mdb吗？就这样写
还有一种办法，就是你打包出去别人安装到任何路径都能用。用相对路径，在代码中加上
Dim 路径 AS String
路径 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.path +"\ACCESS名.后缀"
Adodc1.ConnectionString = 路径

前提条件你要把工程保存在ACCESS数据库相同的文件夹里，要保存一次工程

我用的是SQL，不是ACCESS。还是提醒我文件名不对，我的数据库文件类型是Database File
Adodc1.ConnectionString="Driver={SQL Server};Server=数据库服务器地址;Uid=用户名;Pwd=密码;DataBase=数据库名"

---

我用VB编一个统计总金额的程序，想让统计结果显示在Label2里面但是总是有错，求高手指教，程序代码如下视频