overførelse af værdi til et felt på rapport

Jeg har en form hvor jeg indtaster en streng, denne streng tjekkes så i en tabel. og vis den findes åbnes en rapport, men hvordan får jeg denne streng med over på rapporten og til at stå i et tekstfelt.

Jeg har prøvet med dette men jeg kan ikke få skrevet stengen ud i feltet på rapporten.

If Me.ur1 <> "" Then
   
        Set rstjek = CurrentDb.OpenRecordset("SELECT SQPRDC FROM iordre WHERE SQPRDC = '" & Me.ur1 & "'")
        If Not rstjek.EOF Then
                   
            link = "[ur]= " & " '" & Me![ur1] & "'"
               
            DoCmd.OpenReport "vis_ur", acPreview, , link
        Else
            MsgBox "ur findes ikke !"
        End If
    End If