Thanks, this works for the weekends but not for the holidays. Is that because
it is reading the date in as US format in VB? I tested from a temp form
entering 01/05/05 (which is a Sunday) and it returned 02/05/05 which is a
bank holiday here in the UK. Also, this doesn't check the holiday file for
countrycode - can this be added in to the dlookup ?

I also tried the following code which works for w/e's but not holidays:

    Public Function NextWorkDay(StartDate As Date) As Date
    On Error GoTo Err_NextWorkDay

    Dim rst As DAO.Recordset
    Dim DB As DAO.Database
    Dim DateOK As Boolean

    Set DB = CurrentDb
    Set rst = DB.OpenRecordset("Select [HolidayDate] from tblHolidays where
[CountryCode]='A'", dbOpenSnapshot)

    Do Until DateOK

    rst.FindFirst "[HolidayDate] = #" & StartDate & "#"

    If Weekday(StartDate, vbMonday) < 6 Then
    ' Date is not a weekend
        If rst.NoMatch Then
            ' not a holiday
            DateOK = True
        Else
             StartDate = StartDate + 1
        End If
    Else
        StartDate = StartDate + 1
    End If
    Loop

     NextWorkDay = StartDate

     Forms!form1![NextDate] = NextWorkDay

Any ideas on how to get this working for the holiday dates? Also, once
working how would I apply to a whole recordset? Something like:

   Set rst = CurrentDb.OpenRecordset("select * from Dealer Selection GB")
   Do While rst.EOF = False
       rst.Edit
       rst!NextAudit = Call routine to Check Date and Update to Next
Working Day where appropriate
       rst.Update

      rst.MoveNext
   Loop

   rst.Close
   Set rst = Nothing

Thanks in advance for any help.
Sue