if thisform.text1.value=alltrim(STR(month(date())))+alltrim(STR(day(date()))) then
   do form D:\yygl\form\fdesktop.scx
   thisform.release
else
   =messageBOX("密码输入错误！",65,"密码信息框")
   THISFORM.TEXT1.VALUE=""
   THISFORM.TEXT1.SETFOCUS
ENDIF
   
   这个密码验证程序不错，密码为当前系统月日。只要在表单上加一个标签显示当前系统日期就可以了

你没有定义password,当然找不到了