Set rs = Data3.Recordset.FindFirst("姓名='" & txtUserName.Text & "'") '好像不对不知如何改
If txtUserName.Text <> "" And txtPassword.Text <> "" Then
Data2.Recordset.FindFirst "姓名='" & txtUserName.Text & "'" & "and 员工编号='" & txtPassword.Text & "'"
If Data2.Recordset.NoMatch Then
MsgBox "无效的密码，请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
Else
LoginSucceeded = True
Me.Hide
yuangon.Show
If rs = Data2.Recordset.FindFirst("姓名='" & txtUserName.Text & "'") Then
If rs = Me.Data2.Database.Recordsets Then
yuangon.Caption = "管理员用户登录" 'yuangon是一个窗体
If txtUserName.Text = "admin" Then
str = "admin"
End If
End If
End If
data3与data2连接的是两张表一张是管理员表一张是员工信息表
员工信息表中包括管理员表
本来这段程序我的意思是想让记录集当中data3部分的数据值赋给rs
如果rs与data2中的纪录相等则说明我当前用data2登录的是一个管理员帐户那么就执行yuangon.Caption = "管理员登录"可不知为什么就不行．
但我想这样子的思路应该是不会错的，首先系统提示我”缺少函数或变量”，不知道该怎么改才能达到我想要的效果，为了做这个结果已经花了两三个小时了,呵呵．刚接触VB没多久，大家帮帮忙吧
压缩包中的data控件的路径还没改在:d:/zkq/毕业设计中
