Private Sub grdKonten_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles grdKonten.ItemCommand Select Case e.CommandName.ToUpper Case "SELECT" With e.Item Session("nGrdEdit") = .Cells(1).Text Me.txtKtonr.Text = RTrim(.Cells(2).Text) Me.txtKtobez.Text = RTrim(.Cells(3).Text) Me.cboArt.SelectedIndex = -1 Me.cboArt.Items.FindByValue(.Cells(4).Text).Selected = True Me.cboUcd.SelectedIndex = -1 Me.cboUcd.Items.FindByValue(.Cells(5).Text).Selected = True End With Case "DELETE" Server.Transfer("frm_delete.aspx?name=ktonr&id=" + e.Item.Cells(1).Text + "&redir=frm_kto.aspx") End Select End Sub>Hello,