[Resolvido]Dúvida com o db.openrecordset (expressão)

Boas,
Venho mais uma vez pedir ajuda, a quem me poder ajudar.

O meu problema é este, eu tenho ocódigo abaixo:

Código:

Private Sub Export_Click()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs_Filho As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("T_Pai", dbOpenDynaset) 'abro a tabela T_Pai
rs.MoveFirst 'desloco para o primeiro registro
 

Do While Not rs.EOF
R1= (rs!ID_Pai) 'defino R1 como os registos da coluna ID_PAI
R2 = (rs!Pai)
           

MsgBox R2
         
      expr_sql = "select *from T_Filho where ID_Pai =R1" 'filtro a tabela T_Filho pelos registros
      Set rs_Filho = db.OpenRecordset(expr_sql, dbOpenDynaset)
      rs_Filho.MoveFirst

      Do While Not rs_Filho.EOF
      R4 = (rs_Filho!Filho)

    MsgBox R4

rs_Filho.MoveNext
Loop
rs.MoveNext
 
Loop
       
End Sub

Ou seja en tenho uma Loop dentro de outra Loop, a primeira vai buscar o Nome dos pais e segunda vai buscar o nome dos filhos, filtrado pelo ID, o problema está nesta linha de código abaixo. Como a variável "R1" esta dentro da propria loop, o VBA não consegue determinar o valor de "R1",que se situa na expressão SQL "expr_sql",

Código:

expr_sql = "select *from T_Filho where ID_Pai = R1"  'filtro a tabela T_Filho pelos registros
      Set rs_Filho = db.OpenRecordset(expr_sql, dbOpenDynaset)

Existe alguma forma de contornar isto????

Em anexo envio ficheiro exemplo, com as tabelas e o módulo onde se encontra o presente código.

Desde já obrigada

Assim:

expr_sql = "SELECT * FROM T_Filho WHERE ID_Pai = " & R1

Muito obrigado,

Resulta na perfeição.

Obrigado pelo retorno o forum agradece.