[Resolvido]Gerar aulas com o mesmo dia da semana

Ola amigos do fórum estou com um probleminha aq tenho um código para geração de aulas porem queria que ele gerasse as aulas no mesmo dia da semana.
tenho um campo do tipo data que ao digitar a data da primeira aula exemplo 30/10/2017 que é segunda feira, e tenho um campo exemplo que vc digita a quantidade de segundas 60 aulas são 60 segundas feiras ele gere automático em sequencia as aulas.


et db33 = CurrentDb()
Set Rs33 = db33.OpenRecordset("CalendarioCompromissos")

For i = 1 To Me.Texto53
Rs33.AddNew
Rs33("Aluno") = Me.Combinação2
Rs33("HoraCompromisso") = Me.Texto68
Rs33("DataCompromisso") = DateAdd("d", i - 1, Date)
Rs33.Update
Next
Rs33.Close
db33.Close
Me.CalendarioCompromissos.Requery 'Atualiza o SubForm

sera que alguem pode me ajudar.

Ola pessoal eis a solução

Set db33 = CurrentDb()
Set RS33 = db33.OpenRecordset("CalendarioCompromissos")

For i = 1 To Me.Texto53
RS33.AddNew
RS33("Aluno") = Me.Combinação2
RS33("Curso") = Me.Combinação4
RS33("HoraCompromisso") = Me.Texto68
RS33("DataCompromisso") = DateAdd("ww", i - 1, Me!Texto9) " era somente mudar de "d" para "ww".
RS33.Update
Next
RS33.Close
db33.Close
Me.CalendarioCompromissos.Requery 'Atualiza o SubForm