# 有个密码的问题..,烦请帮忙

Posted by 小雯 on April 03, 1999 at 00:04:28:

我有个程式：
aa:
on error resume next
Set db = DBEngine.Workspaces(0).OpenDatabase(dbname, False, False, ";pwd=" & pstring)
if Err.Number=3031
choice = MsgBox(dbname & "输入密码吗?", vbYesNo, "资料库密码锁定")
If choice = vbYes Then
Form2.Show<--我想用form2来接收密码，但好像在msgbox按”是”时
endif msgbox还是一直出现,想请问,这里到底该如何写,才能
endif 顺利接收密码??

Follow Ups:

- Re: 有个密码的问题..,烦请帮忙 Knight 09:57:23 4/03/99 (2)
  - 但是.....还是有问题ㄝ~~ 小雯 00:32:20 4/04/99 (1)
    - Re: 但是.....还是有问题ㄝ~~ Mouse 02:55:35 4/04/99 (0)