[Resolvido]Gerar Parcela diário sem sábado e domingo

Boa Noite, gostaria da ajuda para poder tirar o sábados e domingos ao gerar parcelas

Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_Recebimento")
     Valor_Parcela = Me.txtTotalRecebe / Me.QtdeParcelas
   
   For i = 1 To Me.QtdeParcelas  
       rs.AddNew
       rs("Cod_TabRecebe") = Me.CodReceber
       rs("Parcelas") = i & "/" & Me.QtdeParcelas
       rs("Valor_Parcela") = Valor_Parcela
       rs("Dt_Vencimento") = DateAdd("d", i - 1, Me.txtDt_1Parcela)
       rs.Update
   Next
   rs.Close
   db.Close
   Me.tbl_Recebimento_subformulário.Requery  
   Me.btn_Diário.enabled = False

Desde já agradeço!

Vou dar como resolvido. Pois já resolvi com Avelino em outra anterior.

Peço desculpas!

Grato!