我做个登录的窗口,怎么才能实现多用户登录
pcwak 2002-12-28 04:18:49 是下面的代码只能实现一个用户登录,帮我改改啊
If Text1.Text = rst.Fields("用户") And Text2.Text = rst.Fields("密码") Then
Form1.Show
Me.Hide
Exit Sub
Else
MsgBox "密码不对,请重新输入", 0 + 48, "警告"
Text1.SetFocus
s = s + 1
SendKeys "{Home}+{End}"
End If