[Resolvido]Gerar Dias com domingo Configuravel

Ola Pessoa estou com um probleminha aqui to com um sistema para geração de horarios de aula de alunos, porem na geração de horarios ele gera normalmente, dia a dia com os horarios o problema e referente aos domingo que n tem aula gostaria de configurar um campo onde o proprio usuario configura-se exemplo um campo com domingo tipo sim/não ou caixa de seleção mesmo ai ele coloca ou pula os domingos meu código esta assim.


Dim db33
Dim RS33


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("d", i - 1, Date)

RS33.Update

Next
RS33.Close
db33.Close
Me.CalendarioCompromissos.Requery 'Atualiza o SubForm





alguem teria uma ideia pra me ajuda.

Ola;

Qualquer coisa assim;

Código:

Dim db33 As DAO.Database
Dim RS33 As DAO.Recordset
Dim i As Variant

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

For i = 1 To Me.Texto53.Value
RS33.AddNew
RS33("Aluno") = Me.Combinação2
RS33("Curso") = Me.Combinação4
RS33("HoraCompromisso") = Me.Texto68.Value
    'verifica se checkbox está setada
    If Me.SeuCampoSimNao = True Then
      'verifica se é domingo
      If Weekday(DateAdd("d", i - 1, Date)) = vbSunday Then
          'não faz nada
      Else
          RS33("DataCompromisso") = DateAdd("d", i - 1, Date)
          RS33.Update
      End If
      Else
          'se checkbox não está setada
          RS33("DataCompromisso") = DateAdd("d", i - 1, Date)
          RS33.Update
    End If
Next
RS33.Close: Set RS33 = Nothing
db33.Close: Set db33 = Nothing

Boa Meu amigo muito obrigado vc e fera.

Fico feliz.
Obrigado pelo retorno o forum agradece.