Set Db = CurrentDb() variavél não definida

Sou novato no Access. Estou tentando gerar parcelas mas o código está dando erro vcs podem me ajudar

Private Sub btngerarparcelas_Click()
Set Db = CurrentDb() ' dar erro variavél não definida
Set rs = Db.OpenRecordset("Tblparcelas") 'Abre Tblparcelas
Valor_Parcela = Me.txtValordoCurso / Me.QtdeParcelas 'Valor de cada Parcela
For I = 1 To Me.QtdeParcelas 'Insere as Parcela na Tbl_ContasAreceber
rs.AddNew
rs("txtMatricula1") = Me.txtMatricula
rs("Parcelas") = I
rs("Valor_Parcela") = Valor_Parcela
rs("Dt_Vencimento") = DateAdd("m", I - 1, Me.txtVenc_1_Parc) 'Calcula as datas de Vencto através da função DateAdd()
rs.Update
Next
rs.Close
Db.Close

End Sub

Obrigado !

Declare assim;

Código:

Dim Db As DAO.Database
Dim rst As DAO.Recordset

Set Db = CurrentDb()
Set rs = Db.OpenRecordset("Tblparcelas")

Obrigado funcionou
Fiz a declaração e funcionou. Agora tenho um outro problema no código na parte do valor de cada parcela. Na hora de dividir a valor de cada parcela da erro.
.

Você tem de declarar todas as variaveis;

Código:

Dim Db As DAO.Database
Dim rst As DAO.Recordset
Dim Valor_Parcela As Currency
Dim i As Integer

Veja este pequeno exemplo;

http://dl.dropboxusercontent.com/u/771097/Parcelamento.zip