Как прописать значение в поле на форме , клона через KeepNewFormClone

Public Function KeepNewFormClone(frm As Form, id) As Form
    On Error GoTo Err_KNFC
    frmColl.Add frm
    Set KeepNewFormClone = frm
    frm.Form.RecordSource = "select * from student where [orderid]=" & id
    frm.Form.Tag = id
    Exit Function
Err_KNFC:
  Err.Raise Err.Number
End Function
 
 Private Sub Open_Click()
Dim ID_Z As Long
Dim str As String
    Dim c
 
'Me.поле3.Value = 100
 
ID_Z = 10
ID = 22
    
    KeepNewFormClone(New [Form_student], ID_Z).Visible = True
    c = Forms.Count - 1
    Forms(c).Move Forms(c).WindowLeft + c * 200, Forms(c).WindowTop + c * 200, Forms(c).WindowWidth, Forms(c).WindowHeight
    
Else
    
Me.поле3.Value = 100
End Sub

Private Sub Open_Click()
    Dim ID_Z As Long
    Dim str As String
    Dim c
    Dim FormClone1 As Object
    ID_Z = 10
    id = 22
    Set FormClone1 = KeepNewFormClone(New Form_student, ID_Z)
    FormClone1.Visible = True
    c = Forms.Count - 1
    Forms(c).Move Forms(c).WindowLeft + c * 200, Forms(c).WindowTop + c * 200, Forms(c).WindowWidth, Forms(c).WindowHeight
    FormClone1.поле3.Value = 100
End Sub