ติดปัญหาการส่งค่าเพื่อไป Edit อีก Form ...พอจะมีโค้ดในการส่งค่า เพื่อไปยังหน้าทำ Edit มั้ยครับ

Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
        With Edit_User
            .setEdit_UserName(DataGridView1.Rows(e.RowIndex).Cells("USER_NAME").Value)
            .setEdit_FirstName(DataGridView1.Rows(e.RowIndex).Cells("FIRST_NAME").Value)
            .setEdit_LastName(DataGridView1.Rows(e.RowIndex).Cells("LAST_NAME").Value)
            .setEdit_Edit_DEPARTMENT(DataGridView1.Rows(e.RowIndex).Cells("DEPARTMENT").Value) 'ส่งค่าฟิลด์ รหัสสินค้า ใน DataGridView ไป Form2
            .Show() 'เปิด Form 2
        End With

    Private Edit_UserName As String
    Private Edit_FirstName As String
    Private Edit_LastName As String
    Private Edit_DEPARTMENT As String
    'เซตรหัส
    Public Sub setEdit_UserName(ByVal UserName As String)
        Edit_UserName = UserName
    End Sub
    Public Sub setEdit_FirstName(ByVal FirstName As String)
        Edit_FirstName = FirstName
    End Sub
    Public Sub setEdit_LastName(ByVal LastName As String)
        Edit_LastName = LastName
    End Sub
    Public Sub setEdit_Edit_DEPARTMENT(ByVal DEPARTMENT As String)
        Edit_DEPARTMENT = DEPARTMENT
    End Sub

    Private Sub Edit_User_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = Edit_UserName
        TextBox2.Text = Edit_FirstName
        TextBox3.Text = Edit_LastName
        ComboBox2.Text = Edit_DEPARTMENT

 Dim Conn As New OleDbConnection(strConnection)
            Dim Comm As New OleDb.OleDbCommand()

            Conn.Open()
            Dim strSQL As String

            strSQL = "UPDATE [MIS_INTRANET].[dbo].[USER_LIST] Set " &
                " USER_NAME = '" & TextBox1.Text & "' " &
                " ,FIRST_NAME = '" & TextBox2.Text & "' " &
                " ,LAST_NAME = '" & TextBox3.Text & "' " &
                " ,DEPARTMENT = '" & ComboBox2.Text & "' " &
                " ,Update_User = '" & Label6.Text & "' " &
                " WHERE USER_NAME = '" & TextBox1.Text & "' "

Comm.Connection = Conn
            Comm.CommandType = CommandType.Text
            Comm.CommandText = strSQL
            Comm.ExecuteNonQuery()

            Conn.Dispose()
            Comm.Dispose()