Public Function CumbriaImmediate()
Dim MILLNESS As Integer
Dim LOWHURST As Integer
Dim Total As Integer
MILLNESS = DLookup("[Immediate]", "tblIncidents", "[Sector]='MILLNESS'")
LOWHURST = DLookup("[Immediate]", "tblIncidents", "[Sector]='LOWHURST'")
Total = MILLNESS + LOWHURST
End Function...