Private Sub DataGridView1_CellEndEdit(sender As Object, e As _
      DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
 
 
        Me.DataGridView1.RefreshEdit()
        Dim GelID As String = DataGridView1.Rows(e.RowIndex).Cells( _
          "gelldfnr").Value
        Dim Gelspr As String = DataGridView1.Rows(e.RowIndex).Cells( _
        e.ColumnIndex).Value.ToString
 
        Dim cmd3 As New SqlCommand("Update Gelände Set F02 =@p1 where gelldfnr" & _
          "= @pIndex", con)
 
        cmd3.Parameters.Add("@pindex", SqlDbType.BigInt).Value = GelID
        cmd3.Parameters.Add("@p1", SqlDbType.NChar, 10, "F02").Value = Gelspr
 
        Me.DataGridView1.EndEdit()
 
        con.Open()
        cmd3.ExecuteNonQuery()
        con.Close()
 
    End Sub