I am trying calculate the previous business day from today.  I am
trying to use the code below i found on this site, but keep getting
error message when i try and compile, does not recognize rst.FindFirst.
I am using Access 2002:

Function funAddBusinessDay(datStart As Date, intDayAdd As Integer)
  'Adds the proper Business day skipping holidays and weekends
  'Arvin Meyer 05/26/98 with modifications by G. J. Shears 6/16/98
  'Need to add holidays table using Hdate as field name of holidays
  On Error GoTo Err_Hand2

  Dim rst As Recordset
  Dim db As Database
  Dim strSQL As String
  Dim h_test As Date

  Set db = CurrentDb
  Set rst = db.OpenRecordset("SELECT [hDate] FROM tblHolidays ORDER BY

[hdate] ", dbOpenSnapshot)

  rst.FindFirst "[hDate] > #" & datStart & "#"
  If rst.NoMatch Then
     h_test = 0
  Else
     h_test = rst!hdate
  End If

  Do While intDayAdd > 0
     datStart = datStart + 1
     If WeekDay(datStart) <> vbSunday And WeekDay(datStart) <>
vbSaturday
Then
        If h_test <> datStart Then
           intDayAdd = intDayAdd - 1
        End If
     End If
     If h_test = datStart Then
        rst.FindFirst "[hDate] > #" & datStart & "#"
        If rst.NoMatch Then
           h_test = 0
        Else
           h_test = rst!hdate
        End If
     End If
  Loop
  funAddBusinessDay = datStart
Bye_Now2:
  rst.Close
  Set rst = Nothing
  Set db = Nothing
  Exit Function
Err_Hand2:
  MsgBox "Error#: " & Err.Number & vbCrLf & Err.Description
  Resume Bye_Now2
End Function