Passing Data Between Form

Public Class Form1
    Private Sub BtnShow_Click(sender As Object, e As EventArgs) Handles BtnShow.Click
        'show non duplicate form2
        Dim frm As Form = My.Application.OpenForms.Item("Form2")
        If frm IsNot Nothing Then
            frm.Close()
        End If

        Dim myChild As New Form2()
        With myChild
            .Owner = Me
            .Show()
        End With
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim DT As New DataTable
        DT.Columns.Add("ID", GetType(Integer))
        DT.Columns.Add("Name", GetType(String))

        For i = 0 To 9
            DT.Rows.Add(i + 1, Chr(i + 65))
        Next
        DGV.DataSource = DT
    End Sub
End Class

Public Class Form2
    Private DT As DataTable
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DT = DirectCast(Owner, Form1).DGV.DataSource
    End Sub

    Private Sub BtnFilter_Click(sender As Object, e As EventArgs) Handles BtnFilter.Click
        If DT IsNot Nothing Then
            DT.DefaultView.RowFilter = TxtFilter.Text
        End If
    End Sub
End Class