ผมข้อสอบถามเรืองการ Update หน่อยครับ คือ พอคลิกเลือกตัวที่จะเเก้ไข เเล้วพอเราทำการเเก้ไขข้อมูลจะเเก้ไขพร้อมกัน ทุก ตารางครับ

Private Sub Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit.Click
        Dim strSQL As String
        Connection = "Database=account ;Data Source=localhost;User Id=root;Password=root"
        strSQL = "UPDATE income SET " & _
                    "ID_income = '" & Me.ID.Text & "' " & _
                    ",Date         = '" & Me.Dateone.Value.ToString("yyyy-MM-dd") & "' " & _
                    ",List         = '" & Me.BoxList.Text & "' " & _
                    ",Money        = '" & Me.Money.Text & "' " & _
                    ",Comment      = '" & Me.Comment.Text & "' " & _
                    "WHERE ID_income   = '" & Me.ID.Text & "' "

        objConn = New MySqlConnection(Connection)
        objConn.Open()
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With
        Me.ID.Visible = False

        Try
            objCmd.ExecuteNonQuery()
            Me.ID.Text = "Record Updated"
            Me.ID.Visible = True
        Catch ex As Exception
            Me.ID.Visible = True
            Me.ID.Text = "Record can not update. Because: " & ex.Message
        End Try
        objConn.Close()
        objConn = Nothing
        BindData()
        Me.Refresh()
    End Sub