Private Sub txtPassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  cmdOK.SetFocus
End If
End Sub
