vb6 datagrid显示sum字段的问题

            ' 统计条件不为空
            sql = "SELECT jiludate, SUM(moneynum) FROM shouru WHERE " & strsql & " GROUP BY jiludate ORDER BY jiludate"
        End If
        oldSql = sql                                            '保存查询条件
        Call Module1.connSql(sql)                               '连接数据源，进行查询        lblInTotalCount.Caption = "统计结果条数：" & rs.RecordCount & ""
            
        ' 初始化        Dim i As Integer
        Dim j As Integer
        j = 0
'        Do While Not rs.EOF
'            With DataGrid1
'                For i = 1 To rs.Fields.Count
'                  .Col = i
'                  .row = j
'                  .Text = CStr(rs.Fields(i))
'               Next i
'            End With
'            rs.MoveNext
'            j = j + 1
'        Loop
        Set DataGrid1.DataSource = rs                       '设置DataGrid的数据源
        DataGrid1.Refresh
如上所示，我有一个datagrid控件，要显示三列内容，第一列显示序号，第二列显示查询到的日期和金额SUM(moneynum)
1.用注释掉的那种方式，执行到.row = j就报错，而且row中第一个字母是小写的，应该是Row才对；但是保存后就自动变为row。第一列序号的显示先不管。
2.用下面的方法，设置第二列为日期，可以正常显示，但第三列SUM(moneynum)显示不了，而且第一列序号不知道怎么显示，序号是自己加上的，不是从db里查到的