I think I figured it out!
Option Compare Database
Dim OTHours As Integer
Function CalculateHours(TheDate As Date, TheName As String, Time_In As Date, DTApproved As Boolean, HourType As String)
Dim dbs As DAO.Database, rst As DAO.Recordset, rstBefore As DAO.Recordset
Set dbs = CurrentDb...