Private Sub DBGrid1_KeyDown(KeyCode As Integer, Shift As Integer)

On Error GoTo errhandler

If KeyCode = vbKeyTab Then
DBGrid1.Col = DBGrid1.Col + 1
End If
Exit Sub

errhandler:


End Sub
__________________________________

This will work, but make sure to include the error handler to capture the error when you get to the last column and try to move to the next. You don't need any code to handle the error it works fine as above.

Bob