比如之前我做了一个
，然后我想做成学生，老师，管理员 3个登陆身份，就是登陆进去以后能进入不同的主界面，怎么样设置才行？

想做成这样。
这是我原来的代码，（基本COPY.看懂后自己修改了一下。。。）
Private Sub Command1_Click()
Dim str As String ‘定义变量 str
Dim jg As New ADODB.Recordset ‘定义jg变量，用来存放查询记录
dlmc = Trim(Me.用户名称) ‘输入的用户名称赋值给
dlmc dlmm = Trim(Me.用户密码) ‘输入的用户密码赋值给dlmm
If IsNull(dlmc) Then ‘判断输入的用户名是否为空
DoCmd.Beep ‘如果没有用户名，提示用户
MsgBox ("请输入用户名称！")
ElseIf IsNull(dlmm) Then ‘判断输入的用户密码是否为空
DoCmd.Beep ‘如果没有用户密码，提示用户
MsgBox ("请输入密码！")
Else str = "select * from 用户表 where xm='" & dlmc & "' and kl='" & dlmm & "'" ‘在“用户表”表中进行查询
Set jg = getrs(str) ‘将查询结果赋值给变量jg
If jg.EOF Then
DoCmd.Beep
MsgBox ("用户名称不正确或密码有误！")
Me.用户名称 = ""
Me.用户密码 = ""
Me.用户名称.SetFocus
Exit Sub Else
DoCmd.Close
DoCmd.OpenForm “主窗体”
End If
End If
Set jg = Nothing
End Sub

真心求教啊！初学者，感谢各位大神了！

代码要怎么修改啊！！！

你的代码要 大改了。基本是等于重写。还要多重判断，

求编码啊！！！！！！！！！

请问 众多贴吧大神还有愿意说一下的么、。。。

大神求代码啊，我也想实现这个功能[email protected]