Another good way to do it is to create a Public Sub in the 2nd form.
Here is an example I did:
In the 1st form (called frmDocBloc)
*** Triggered by a dblclick on a grid
*** gRs is my Global Recordest
Private Sub msFlex_DblClick()
Dim sCote As String
Dim sNum As String
Dim sSQL As String
msFlex.Col = 1
sCote = msFlex.Text
msFlex.Col = 2
sNum = msFlex.Text
sSQL = "cote = '" & Apostrophe(sCote) & "'"
sSQL = sSQL & " AND doc_no = '" & Apostrophe(sNum) & "'"
gRs.FindFirst sSQL
If gRs.NoMatch = False Then
Unload Me
frmDocuments.ShowFrmDocuments gRs
End If
End Sub
Then on the 2nd form (called FrmDocuments)
Option Explicit
Dim mRs As Recordset
Public Sub ShowFrmDocuments(ByVal rRs As Recordset)
Dim sSQL As String
Dim bReturn As Boolean
Load frmDocuments
Set mRs = rRs
UpdateScreen mRs
frmDocuments.Show vbModal
End Sub
Private Sub UpdateScreen(rRs As Recordset)
If rRs.RecordCount = 0 Then
Me.cmdPrecedent.Enabled = False
Me.cmdSuivant.Enabled = False
Me.txtCount.Text = rRs.RecordCount
ElseIf rRs.EOF = True Then
rRs.MoveFirst
Else
frmDocuments!txtDoc_id.Text = "" & rRs("doc_id"

frmDocuments!cmb(0).Text = "" & rRs("cote"

frmDocuments!txt(0).Text = "" & rRs("doc_no"

frmDocuments!txt(1).Text = "" & rRs("titre_cote"

frmDocuments!txt(2).Text = "" & rRs("titre"

frmDocuments!txt(3).Text = "" & rRs("numero_regle"

frmDocuments!txt(4).Text = "" & rRs("titre_regle"

frmDocuments!txt(5).Text = "" & rRs("actif"

frmDocuments!txt(6).Text = "" & rRs("semi"

frmDocuments!txt(7).Text = "" & rRs("innactif"

frmDocuments!txt(8).Text = "" & rRs("etat"

frmDocuments!txt(9).Text = "" & rRs("copie"

frmDocuments!txt(10).Text = "" & rRs("annee"

frmDocuments!txt(11).Text = "" & rRs("support"

frmDocuments!txt(12).Text = "" & rRs("localisation"

frmDocuments!txt(13).Text = "" & rRs("descLocal"

frmDocuments!txt(14).Text = "" & rRs("filiere"

frmDocuments!txt(15).Text = "" & rRs("descFiliere"

frmDocuments!txt(16).Text = "" & rRs("commentaire"
DoEvents
LoadMSFlexGridAuteur
LoadMSFlexGridKeyword
End If
End Sub
Hope this exemple will help you
Have fun...