Fai un ciclo per i giorni del mese ... per esempio per novembre
fai un ciclo for da 1 a 30, per ogni ciclo esegui la SQL che hai creato prima indicando la data... se il valore esiste lo memorizzi con il conteggio, altrimenti per la stessa data inserisci 0.
Ti metto un esempio molto spartano ... senza mettere tutti gli oggetti

'Per novembre
for vCounter = 1 to 30
'Esegui la query
strNomePagina = "miaPagi"
strSqlDett = "SELECT Count([data]) AS Totale, [data] FROM pagine WHERE nomepagina='" & strNomePagina & "' AND [data] = #"&vCounter&"/10/"&Year(Date)&"# GROUP BY [data]"

'apri il recordset e controlli
Recordset.Open sql

if Recordset.EOF then
vVisite = 0
else
vVisite = Recordset("Totale")
end if

'Qui poi esegui la query di insert
sql = "INSERT INTO Calendario ([data], visite) VALUES (#"&vCounter&"/10/"&Year(Date)&"#,"&vVisite&")"


next