Private Sub Grid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyTab Then
    Dim nCol As Long
 
    KeyCode = 0
    With Grid1
      nCol = .Col
      .UpdateRow
      If nCol < .Cols Then
        .DoEdit .Row, nCol + 1
      End If
    End With
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de