access的vba用户定义类型未定义错误提示

贴出的代码问题挺多的（包括用错属性和代码逻辑及其先后秩序不正确等）。使用ADO检索数据表确实比较麻烦，其实核对用户名和密码使用Dlookup函数会简便得多。

根据帖出的代码原意和思路，建议修改、调整如下：
对不起之前的代码有笔误，现予以更正，运行如有问题请追问

Private Sub login_Click()
'先声明ADO对象等变量
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim userpass As String
Dim RecordLogInData As Boolean '此变量用于判断是否记录登录信息

Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset

'先判断两个文本框是否为空
If IsNull(Me.txt_用户名.Value) then
MsgBox "用户名不能为空，请重新输入！", vbOKOnly + vbInformation, "提示信息"
Me.txt_用户名.SetFocus
Exit Sub
ElseIf IsNull(Me.txt_密码.Value) then
MsgBox "密码不能为空，请重新输入！", vbOKOnly + vbInformation, "提示信息"
Me.txt_密码.SetFocus
Exit Sub
End If

'打开“管理用户”数据表
rs.Open "管理用户", conn '管理用户是一个管理员的用户名和密码的数据表

'TEXT属性只有在文本框获得焦点的情况下才可使用，
'大多数情况下引用文本框内容应该使用Value属性而不是TEXT属性
username = txt_用户名 '注意不要使用TEXT属性，否则会出错（这里使用默认属性VALUE）
userpass = txt_密码 '注意同上

'循环判断用户名和密码是否对得上,注意要逐条记录比对
'原帖代码没有考虑这个问题，它只有在管理用户表刚好只有一条记录时才能正确运行
If rs.Recordset.RecordCount>0 then
Do Until rs.Eof
If rs!用户名=username And rs!密码=userpass Then
RecordLogInData =True ' 用户名和密码均正确，则标识可以记录登录信息
Exit Do '此时已经没必要继续下去，跳出循环以节省系统开销
rs.MoveNext '***之前漏掉了*****
Loop
else
MsgBox "管理用户表没有任何用户资料！", vbOKOnly + vbInformation, "提示信息"
Exit Sub
End If

'将登录信息写入“管理员登录记录”数据表
rs.Close
If RecordLogInData =True then
rs.Open "管理员登录记录", conn, adopendynamic, adlockoptimistic
rs.AddNew
rs!用户名 = username
rs!登录时间 = Now()
'现在登出时间还不确定，暂时无需记录它
rs.Update
rs.Close
DoCmd.Close
DoCmd.OpenForm "机料管理系统"
else
MsgBox "管理用户或密码错误！", vbOKOnly + vbInformation, "提示信息"
Me.txt_密码.SetFocus
Exit Sub
End if
End Sub

先检查有没有打错字母 或者少打符号吧 上学时学的现在完全不懂了_(:3」ㄥ)_ 抱歉