我用的是DataGrid1连接ACCEST  
我把原文件已经上传了！
我的意思是  先combo1里面选择日期然后输入日期 比如说2008-5-20
然后这个记录上的顿 的 总分算出来
2008-5-20 顿 数 有 60，80    把这个算出来 然后LABEL9.CAPTION 显示
   点击《计算》按钮 就计算顿记录的总数 
高手帮个忙代码怎么写？

For i = 1 To lines - 1
num = Val(MSHFlexGrid1.TextMatrix(i, 3)) 'i 是行，3是列
Sum = Sum + num
Next i
Text6.Text = Sum
Label9.Caption = Sum
End Sub

这些代码是MSHFlexGrid1　　　写的　！
　DataGrid1　　怎么写？？？



这下面的代码是　打开　的　代码　　我需要计算表里面的记录　
Dim San As Integer
Dim Str As String
Dim KimMat As String
Dim Lianjie As ADODB.Connection
Dim Xinjian As ADODB.Recordset
Dim lines As Integer
Dim Sum As Integer
Dim num As Integer
Private Sub Command1_Click()

Set Lianjie = New ADODB.Connection
Set Xinjian = New ADODB.Recordset
Dim A As String
A = App.Path
Str = "Provider=Microsoft.Jet.OLEDB.4.0;DATA source =" & A & "\db1.mdb;Persist Security info=False"
Sql = "SELECT * FROM tap"
Xinjian.CursorLocation = adUseClient
Xinjian.Open Sql, Str, 3, 3
Set MSHFlexGrid1.DataSource = Xinjian
Set DataGrid1.DataSource = Xinjian
Text5.Text = MSHFlexGrid1.Rows
lines = Val(Text5.Text)
End Sub



各位高手帮个忙！！　本人是新手！！！！！帮个忙！

恩～　我把原文件已经上传了！　各位高手下载看看！　弄好了就　发给我！　谢谢！！