Private Sub Grid1_EditKeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyTab And Grid1.Col = 3 Then
    KeyCode = 0
    Grid1.UpdateRow
    Command1.SetFocus
  End If
End Sub
 
Private Sub Grid1_GotFocus()
  If Grid1.Row > 0 Then
    Grid1.DoEdit Grid1.Row, 1
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de