Here is much simpler version of the code.
That, unfortunately, also return 1.
note: TblAreas has 16 entries (see below).
Sub Test()
Debug.Print "Start: "; Now()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rsCount As Integer
Dim queryNameOrSQL As String
queryNameOrSQL = "SELECT...