Protected Sub Gd_cred_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles Gd_cred.RowCommand
        If (e.CommandName = "Edit") Then
             Dim c As Control = CType(e.CommandSource, Control)
            Dim r As GridViewRow = CType(c.NamingContainer, GridViewRow)
            TextBox1.Text = r.Cells(1).Text
            TextBox2.Text = r.Cells(2).Text
        End If
    End Sub