Subtracting working days (and holidays) from a date

[ECEK]

Thank you so much Arnelgp. Finally we have the solution.
For the record the code is as follows:

Function addWorkDays(addNumber As Long, Date2 As Date) As Date
'********************
'Code Courtesy of
'  Paul Eugin
'********************
    Dim finalDate As Date
    Dim i As Long, tmpDate As Date
    tmpDate = Date2
    i = 1
    Do While i <= addNumber
        If Weekday(tmpDate) <> 6 And Weekday(tmpDate) <> 7 And _
            DCount("*", "tbl_BankHolidays", "bankDate = " & CDbl(tmpDate)) = 0 Then i = i + 1
        tmpDate = DateAdd("d", 1, tmpDate)
    Loop
    
    addWorkDays = tmpDate
End Function

Function saddWorkDays(addNumber As Long, Date2 As Date) As Date
'********************
'Code Courtesy of
'  Paul Eugin & Arnel GP
'********************
    Dim finalDate As Date
    Dim i As Long, tmpDate As Date
    tmpDate = Date2
    i = 0: j = 0
    Do While i <= addNumber
        If Weekday(tmpDate) <> 6 And Weekday(tmpDate) <> 7 And _
            Nz(DCount("*", "tbl_BankHolidays", "bankDate = " & CDbl(tmpDate)), 0) = 0 Then i = i + 1
        tmpDate = DateAdd("d", -1, tmpDate)
    Loop
    
    saddWorkDays = tmpDate
End Function

We sleep tonight.