No Access:
1) crie a Tabela Temp - com o Campo1 (deverá ser do mesmo tipo do "mes" da Tabela Cadastro)
2) Abra a consulta que voce já tem e adcione a tabela Temp
3) Cilck no campo1 da tabela Temp e arraste até o campo mes da Tabela Cadastro
No VB:
Nas Declarações Gerais do Formulário:
Dim Wk As Workspace
Dim Base as Database
Set Wk = DBEngine.Workspaces(0)
Set Base = Wk.OpenDatabase("Cadastro")
No evento do Visualizar Relatório
Base.Execute"DELETE Temp.* FROM Temp;
Dim Temp as Recorset
Set Temp=Base.OpenRecordset("Temp")
Temp.AddNew
Temp("Campo1")=Text1.text (Campo que irá receber o mes noseu formulário)
Temp.Update
Daqui pra frente é igual ao que voce faz
qq coisa é só postar