Private _record As DataRow
Sub New(ByRef r As DataRow)
    _record=r
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    TextBox1.Text=r.cells(0).ToString
    TextBox2.Text=r.cells(1).ToString
End Sub

Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    r.Cells(0)=TextBox1.Text
    r.Cells(1)=TextBox2.Text
End Sub