[Resolvido]O que não funciona no SQL

Quando acesso a TB_Candidatos no código a seguir não traz nenhum registro?

Dim DB As DAO.Database
Dim rst As DAO.Recordset
Dim fase1 As DAO.Recordset
Dim matws As Long

Dim strquery As String
strquery = "Select * from TB_Candidatos where Matricula = " & matws & ""
Set DB = CurrentDb()
' Set rst = DB.OpenRecordset("TB_Candidatos ")
Set fase1 = DB.OpenRecordset("Select * from TB_Fase_1")

Do Until fase1.EOF
matws = fase1![Matricula]
Set rst = DB.OpenRecordset(strquery)
If rst.EOF Then
MsgBox (matws & "não encontrado")
End If
fase1.MoveNext
Loop
MsgBox ("final da atualização")

Boa tarde,
Não sei o que pretende que aconteça, mas o código deverá ser assim
Dim DB As DAO.Database
Dim rst As DAO.Recordset
Dim fase1 As DAO.Recordset
Dim matws As Long

Dim strquery As String

Set DB = CurrentDb()
' Set rst = DB.OpenRecordset("TB_Candidatos ")
Set fase1 = DB.OpenRecordset("Select * from TB_Fase_1")

Do Until fase1.EOF
matws = fase1![Matricula]
strquery = "Select * from TB_Candidatos where Matricula = " & matws
Set rst = DB.OpenRecordset(strquery)
If rst.EOF Then
MsgBox (matws & "não encontrado")
End If
fase1.MoveNext
Loop
MsgBox ("final da atualização")

Funcionou perfeitamente.
O erro estava exatamente no posicionamento da variavel srtquery.
Pelo que entendi a mesma tem de vir antes de executar o SQL.

Obrigado pela ajuda.