Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  txtPassword.SetFocus
End If
End Sub
