oh wait. I see now that you are trying to use command buttons. here is some updated code.
Code:
Private Sub Command2_KeyPress(KeyAscii As Integer)
If KeyAscii = 9 Then Command1.SetFocus
End Sub
and set the tabstop values or all the controls to false. That should work.