Как вызвать процедуру из MDI child из другой формы?

Dim NewMDIChild As New Form1()
        NewMDIChild.MdiParent = Me
        NewMDIChild.Show()
 
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        names = TextBox2.Text
        id_klass = ComboBox2.SelectedIndex + 1
        school = ComboBox1.Text
        telefon = TextBox1.Text
        email = TextBox3.Text
        operat = ComboBox4.Text
        tarif = ComboBox3.Text
        fiorad = TextBox5.Text
        adress = TextBox4.Text
        darhost = "INSERT INTO student  (name,id_klass,school,operator,telefon,tarif,fiorad,adress,email) VALUES ('" & names & "','" & id_klass & "','" & school & "','" & operat & "','" & telefon & "','" & tarif & "','" & fiorad & "','" & adress & "','" & email & "')"
        Dim cn = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\123.mdb")
        cn.Open()
        Dim sql As New OleDbCommand(darhost)
        Try
            sql.Connection = cn
            sql.ExecuteNonQuery()
            MsgBox("Новый ученик-'" & TextBox2.Text & "' добавлен!", MsgBoxStyle.Information, "Информация")
            Me.ActivateMdiChild(Form1.connection) здесь не работает почему????
        Catch ex As Exception
            MsgBox(ex.Message)
            MsgBox("Не удалось! ...", MsgBoxStyle.Information, "Информация")
        End Try
        cn.Close()
        Me.Close()
        ucheniki.ucheniki()
    End Sub

form1.conection()

  Dim NewMDIChild As New Form1()
        NewMDIChild.MdiParent = Me
        NewMDIChild.Show()

NewMDIChild.connection()

Dim NewMDIChild As New Form1()
NewMDIChild.MdiParent = Me
NewMDIChild.Show()

Private Sub СписокToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles СписокToolStripMenuItem.Click
        Dim NewMDIChild As New Form1()
        NewMDIChild.MdiParent = Me
        NewMDIChild.Show()
    End Sub

Private Sub СписокToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles СписокToolStripMenuItem.Click
        Form1.MdiParent = Me
        Form1.Show()
 
        Dim NewMDIChild As New Form1()
        NewMDIChild.MdiParent = Me
        NewMDIChild.Show()
    End Sub

    Private Sub СписокToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles СписокToolStripMenuItem.Click
        Me.IsMDIContainer = True
        Form1.MdiParent = Me
        Form1.Show()
    End Sub