求 Rs.ActiveConnection = CurrentProject.Connection出错，何解？

Question

Public Sub 存款余额补填()
 Dim Db As ADODB.Connection, varbalance As Double
 Dim Rs As Recordset
   Set Db = New ADODB.Connection
   Set Rs = New ADODB.Recordset
   Rs.ActiveConnection = CurrentProject.Connection------------此处提示错误：方法和数据成员未找到
   On Error GoTo 错误式
   Rs.Open "银行存款", , adopenkeyset, adlockoptimistic, adcmdtable
   varbalance = 0
   Do Until Rs.EOF
   Rs.CancelUpdate
   Rs("余额") = Rs!存入 - Rs!提款 + varbalance
   Rs.Update
   varbalance = Rs!余额
   Rs.MoveNext
   Loop
   Rs.Close
   MsgBox "存款余额已替你补好了，不必自己计算"
   DoCmd.SelectObject acTable, "银行存款", True
   DoCmd.OpenTable "银行存款", acViewNormal, acEdit
   DoCmd.GoToControl "余额"
错误式:
   If Err.Number <> 0 Then
       MsgBox "错误信息:" & Err.Description & "错误代码" & Err.Number
   End If
Exit Sub
End Sub
运行到第6行时提示错误
   Rs.ActiveConnection = CurrentProject.Connection------------此处提示错误：方法和数据成员未找到
有没有高手可以提示一下啊，我估计是有工程里有一个引用没有勾上，可是我不知道是哪个啊，求高手指点，谢！

Answer 1

自己在网上找到了另外的解决方法：
 Dim Db As Object
 Dim varbalance As Double
 Dim rs As Object
   Set Db = CreateObject("ADODB.Connection")
   Set rs = CreateObject("ADODB.Recordset")
   rs.ActiveConnection = CurrentProject.Connection
这样就可以运行了

Answer 2

dim rs as adodb.recordset
试试