Sub cmdExit_Click ()
  End
End Sub

Sub cmdSearchDatabase_Click ()
  Unload frmLookup
  Screen.MousePointer = 11 ' Hourglass
  frmLookup.Visible = True
End Sub

Sub Command1_Click ()
  End
End Sub

Sub Form_Load ()
  frmLookupCriteria.txtFirstName.Text = "*"
  frmLookupCriteria.txtLastName.Text = "*"
End Sub

