[Resolvido]Busca em formulário, resultado em subform - não acoplados

Senhores

tenho um formulario com 3 campos e um botão buscar.
ao preencher esses 3 campos e clicar em buscar, preciso que o resultado seja mostrado em um subformulario.

OBS. ambos com dados não acoplados.

tentei o seguinte
no evento clique do botão busca coloquei o seguinte

Dim strSQL As String, rstTemp As DAO.Recordset

If (txtmatricula <> "") And (cmbmes <> "") And (txtano <> "") Then
strSQL = "Select * from tblresultado where matricula = '" & txtmatricula & "' and mes = '" & cmbmes & "' and ano = int(va('" & txtano & "'))"
Set rstTemp = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
If Not rstTemp.EOF Then
Forms!subfrmGerenciamentoArqTratado!matricula = rstTemp("matricula")
Forms!subfrmGerenciamentoArqTratado!Nome = rstTemp("nome")
Forms!subfrmGerenciamentoArqTratado!dsemana = rstTemp("dsemana")
Forms!subfrmGerenciamentoArqTratado!dataent = rstTemp("dataent")
Forms!subfrmGerenciamentoArqTratado!horaent = rstTemp("horaent")
Forms!subfrmGerenciamentoArqTratado!datasai = rstTemp("datasai")
Forms!subfrmGerenciamentoArqTratado!horasai = rstTemp("horasai")
Forms!subfrmGerenciamentoArqTratado!status = rstTemp("status")
Forms!subfrmGerenciamentoArqTratado.SubForm.Refresh
rstTemp.Close
Set rstTemp = Nothing
Else
MsgBox "Registros Procurado não encontrado.", vbInformation + vbOKOnly, "Atenção!"
End If
End If

mas não aparece nada no subform.

Atualizei o codigo, e só aparece o ultimo registro

como agir.

Dim strSQL As String, rstTemp As DAO.Recordset

If (txtmatricula <> "") And (cmbmes <> "") And (txtano <> "") Then
strSQL = "Select * from tblresultado where matricula = '" & txtmatricula & "' and mes = '" & cmbmes & "' and ano = int(val('" & txtano & "'))"
Set rstTemp = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)

If rstTemp.EOF Then
MsgBox "Registros Procurado não encontrado.", vbInformation + vbOKOnly, "Atenção!"
Exit Sub
End If
rstTemp.MoveFirst
Form.Repaint
While Not rstTemp.EOF
subfrmGerenciamentoArqTratado!matricula = rstTemp("matricula")
subfrmGerenciamentoArqTratado!Nome = rstTemp("nome")
subfrmGerenciamentoArqTratado!dsemana = rstTemp("dsemana")
subfrmGerenciamentoArqTratado!dataent = rstTemp("dataent")
subfrmGerenciamentoArqTratado!horaent = rstTemp("horaent")
subfrmGerenciamentoArqTratado!datasai = rstTemp("datasai")
subfrmGerenciamentoArqTratado!horasai = rstTemp("horasai")
subfrmGerenciamentoArqTratado!status = rstTemp("status")
'subfrmGerenciamentoArqTratado.Requery
rstTemp.MoveNext
Form.Repaint
Wend
rstTemp.Close
Set rstTemp = Nothing
End If
End Sub

Bom dia,
Tente
Dim strSQL As String, rstTemp As DAO.Recordset

If (txtmatricula <> "") And (cmbmes <> "") And (txtano <> "") Then
strSQL = "Select * from tblresultado where matricula = '" & txtmatricula & "' and mes = '" & cmbmes & "' and ano = int(val('" & txtano & "'))"
Set rstTemp = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)

If rstTemp.EOF Then
MsgBox "Registros Procurado não encontrado.", vbInformation + vbOKOnly, "Atenção!"
End If
subfrmGerenciamentoArqTratado.recordsource=strsql

fiz isso e nos campos da subform, coloquei o nome dos campos da tabela, quando abre o formprincipal, fica com uns erros no subform, mas quando aperto o botão buscar, ele fazo filtro.