...
Set qdf = cn.CreateQueryDef("")
 qdf.SQL = "SELECT Персонал.DepartmentID, Count(Персонал.PersonID) AS myCount
FROM Персонал WHERE Персонал.[Дата приема на работу] Between CONVERT (DATETIME, '" 
& strSelDate & " 00:00:00', 102) And CONVERT (DATETIME, '" & strSelDateTo & " 00:00:00', 102) 
GROUP BY Персонал.DepartmentID HAVING Персонал.DepartmentID=" & me.DepartmentID
                                
Set rstIn = qdf.OpenRecordset(dbOpenDynaset)
....

...
Set qdf = cn.CreateQueryDef("")
qdf.SQL = "SELECT [Список Подразделений].Подразделение, Персонал.ФИО,
[Список Должностей].Должность, Персонал.[Дата приема на работу] 
FROM  Персонал INNER JOIN [Список Подразделений] ON Персонал.DepartmentID = 
[Список Подразделений].DepartmentID INNER JOIN [Список Должностей] ON
 Персонал.PositionID = [Список Должностей].PositionID 
WHERE Персонал.[Дата приема на работу] Between 
CONVERT (DATETIME, '" & strSelDate & " 00:00:00', 102) And 
CONVERT (DATETIME, '" & strSelDateTo & " 00:00:00', 102) AND
 Персонал.DepartmentID=8 
ORDER BY [Список Подразделений].Подразделение, Персонал.ФИО, 
[Список Должностей].Должность"
                                
Set rst = qdf.OpenRecordset(dbOpenDynaset)
...