Hello guys,
Thank you for your support, here's my solution:
Option Compare Database
Public Sub ComparePlanningWithActuals()
Dim dbs As DAO.database
Dim rstP As DAO.Recordset
Dim rstA As DAO.Recordset
Dim strSQL As String
Set dbs = CurrentDb()
Set rstP = CurrentDb.OpenRecordset("SELECT * FROM...