Private Sub datagridview1_down(ByVal sender As Object, ByVal e As _
      Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp
 
        Dim x As Integer, y As Integer, Feldname As String = "", Wert As String
        x = Me.DataGridView1.CurrentCell.ColumnIndex
        y = Me.DataGridView1.CurrentCell.RowIndex
 
 
 
        Feldname = Me.DataGridView1.Columns.Item(x).HeaderText.ToString
        Me.DataGridView1("Feldindex", y).Value = Str(x)
        If e.KeyCode = Keys.Right Then
            x = x - 1
            Feldname = Me.DataGridView1.Columns.Item(x).HeaderText.ToString
            Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(y + 1).Cells(x)
            Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(y).Cells(x + 1)
        End If
 
        Dim cmd As New SqlCommand("Update Gelände Set " + Feldname + " = @p1," & _
          "Feldindex =@p2 where gelldfnr = @pIndex", con)
 
        cmd.Parameters.Add("@p1", SqlDbType.NChar, 10, Feldname)
        cmd.Parameters.Add("@p2", SqlDbType.NChar, 10, "Feldindex")
        Dim prm As SqlParameter = cmd.Parameters.Add("@pindex", _
          SqlDbType.BigInt)
        prm.SourceColumn = "gelldfnr"
        prm.SourceVersion = DataRowVersion.Original
 
        dagel.UpdateCommand = cmd
        dagel.Update(dtgel)
 
    End Sub