[Resolvido]Erro em gerar parcelas

Código:

Private Sub cmdParcelas_Click()

    If Me.curValor <= 0 Then 'Se valor do contrato for <= 0
        Exit Sub
    End If
    
    'Salva o contrato
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    
   Dim db As Database, rs As Recordset
        
    Dim ValParc As Currency, i As Byte
        
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tbl_Parcelas") 'Abre tbl_Parcelas
    ValParc = Me.curValor / Me.bytParcelas 'Valor de cada Parcela
        
    For i = 1 To Me.bytParcelas  'Insere as Parcela na Tabela
        rs.AddNew
        rs("lngNumContrato") = Me.lngNumContrato
        rs("bytParcela") = i
        rs("curValor") = ValParc
        'Calcula as datas de Vencto através da função DateAdd()
        rs("dtVencimento") = DateAdd("m", i - 1, Me.dtContrato)
        rs.Update
    Next
                
    rs.Close
    db.Close
    Me.subfrm_Parcelas.SetFocus 'Foco no SubForm Parcelas
    Me.cmdParcelas.Enabled = False 'Desativa o botão Parcelas
    Me.subfrm_Parcelas.Requery  'Atualiza o SubForm Parcelas
    
End Sub

Olá pessoal estava usando este codigo a um bom tempo e funcionava direitinho, estou dando uma repaginada no BD e derrepente esta dando um erro nesta linha  

Set rs = db.OpenRecordset("tbl_Parcelas") 'Abre tbl_Parcelas

ja tentei de tudo e não consegui achar o erro se algum puder ajudar desde ja agradeço muito

Junior

Experimente assim:

db.OpenRecordset("tblParcelas", dbOpenTable)

Noob

Obrigado Avelino Sampaio e Noobezinho pela atenção!!!
Voltou a funcionar com a dica Avelino de botar DAO.

Obrigadoooo