comparar resultados da quina

Amigos,

pesquisando aqui no fórum, achei um código postado em 22/04/2013 com duvida do tonisan2013 e muito bem respondido hary sohn.
eu consegui adaptar para o que desejo (jogos da quina). porem, o que eu necessito é pegar as informações e lançar em uma nova tabela ou simplesmente gerar uma consulta.
neste código ele compara cada jogo da tabjogosnovos_jogados com todos os jogos da tabjogos. a cada jogo vai aparecendo pra mim quais os números que acertei e depois diz quantos foram acertados. eu gostaria, ao invés de mostrar na msgbox, copiar o resultado para uma nova tabela ou consulta, para poder analisar como foi minhas apostas. neste modelo, ficaria muito tempo até conseguir ver todos os resultados. tenho 61 resultados para confrontar com 3.900 jogos atuais da quina.

agradeço a atenção.
cesar elias


TabjogosNovos_Jogados
Tabjogos


Private Sub Comando1_Click()
Dim RsResult        As DAO.Recordset
Dim RsJogo          As DAO.Recordset
Dim StrSQL          As String
Dim StrSQL1         As String
Dim X               As Integer
Dim Y               As Integer
Dim nCount            As Integer
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
On Error GoTo TrataErro
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   StrSQL = "SELECT * FROM TabjogosNovos_Jogados;"
   StrSQL1 = "SELECT * FROM Tabjogos;"
   
   Set RsResult = CurrentDb.OpenRecordset(StrSQL, 4)
   RsResult.MoveLast: RsResult.MoveFirst
   
   Set RsJogo = CurrentDb.OpenRecordset(StrSQL1, 4)
   RsJogo.MoveLast: RsJogo.MoveFirst
   
   nCount = 0
Continuar:
Do While Not RsJogo.EOF
   For X = 1 To RsResult.Fields.Count - 1
       For Y = 1 To 5
           If RsJogo(X) = RsResult(Y) Then
               MsgBox "O Número da Aposta para o Jogo: " & RsJogo(0) & " (" & RsJogo(X) & ")" _
               & vbNewLine & "confere com  o resultado do Concurso " & RsResult(0) & " (" & RsResult(Y) & ")", vbInformation, "CONFERE"
               nCount = nCount + 1
           End If
       Next Y
   Next X
MsgBox "No Jogo " & RsJogo(0) & " Foram acertados " & nCount & " número para o concurso " & RsResult(0) & ""
nCount = 0
RsJogo.MoveNext
Loop
RsJogo.MoveFirst
RsResult.MoveNext
GoTo Continuar
Exit Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Tratamento de Erros
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
   DoCmd.Hourglass False
   DoCmd.Echo True
Exit Sub
TrataErro:
   Select Case Err.Number
 Case 3021
     Exit Sub
 Case Else
     DoCmd.Hourglass False
     DoCmd.Echo True
       MsgBox "Erro " & Err.Description & " Número " & Err.Number & ""
 End Select
End Sub