[Resolvido]Retornar ID da Consulta

Boa Noite Pessoal 

 Estou usando esse código do   Alexandre Fim   para verificar se o regitro existe. 
 Gostaria que caso o registro  existisse ele me retornasse o IDCaixa no TxtID

    Dim sSQL As String
    Dim rs As DAO.Recordset
    
    sSQL = " SELECT IDCaixa FROM Tb_caixa"
    sSQL = sSQL & " WHERE TbOrigem = " & "3" & ""
    sSQL = sSQL & " AND   CodOrigem  = " & Me!Lista49 & ""
    
    Set rs = CurrentDb.OpenRecordset(sSQL)
   
    If Not rs.EOF Then
       
         me!TxtId =    "<==Retornar IDCaixa "

        Exit Sub
        Else
        
          
    End If
    
    rs.Close
    Set rs = Nothing

Código:

Me.TxtId.Value = rs.Fields(0)

Deu certo Obrigado