åbne recordset til visning i formular

Jeg har lavet et recordset, der efter min plan skulle åbne alle records i TB2 ud fra den værdi der står i parent.SeNr. min msgbox viser at værdien fra parent skifte hver gang jeg finder en ny record frem, men recordsettet i sub formen kommer aldrig frem..

On Error GoTo Err_OpdaterSerieNr_Click
Dim rs1 As ADODB.Recordset


Set rs1 = New ADODB.Recordset
Dim hent As String

DoCmd.SetWarnings False


hent = Parent.SeNr
MsgBox (hent)
rs1.Open "Select SNr, SeNr, His FROM TBL2 WHERE (TBL2.SeNr = '" & hent & "')", CurrentProject.Connection, _
adOpenKeyset, adLockOptimistic

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70



Exit_OpdaterNr_Click:
rs1.Close
DoCmd.SetWarnings True
Exit Sub