方法和数据成员未找到，真愁人！

Public Sub 分类帐补余额通用版()
        '本宏为借方余额者，若生成贷方余额，则以负号表之。
 Dim Db As ADODB.Connection, varBalance As Double, strLedger As String
 Dim rs1 As Recordset
 Set Db = New ADODB.Connection
 Set rs1 = New ADODB.Recordset
         '指定rs1的连结数据库为目前打开的数据库
 rs1.ActiveConnection = CurrentProject.Connection

（运行到这里就显示方法和数据成员未找到，是哪里出了问题，难道是2007版本和2003版本不同吗，请高手指教哦!多谢！）

On Error GoTo 错误式
   strLedger = InputBox("请输入你要补余额的分类帐表的名称")
        '使用open方法打开刚生成的表「？？分类帐」
   rs1.Open strLedger, , adOpenKeyset, adLockOptimistic, adCmdTable
        '先设余额等于零
   varBalance = 0
        '使用Do Loop循环在表记录集合中逐笔往下计算本日余额
   Do Until rs1.EOF
        'rs1.CancelUpdate
        If DSum("[借方金额]", strLedger) > DSum("[贷方金额]", strLedger) Then
            rs1("余额") = rs1!借方金额 - rs1!贷方金额 + varBalance
        Else
            rs1("余额") = rs1!贷方金额 - rs1!借方金额 + varBalance
        End If
        rs1.Update
        varBalance = rs1!余额
        rs1.MoveNext
    Loop