题目：连接ACCESS 2000数据库，并相比较。
操作系统：Win2000 Pre ACCESSS 2000

要求说明：
E盘下的FILE文件夹有一个宿舍管理系统,FrmLogin 窗体，FrmMain窗体，FrmLogin窗体里面有TxtUser,TxtPwd,cmdOK等几个对象。

一个ACCESS2000数据库文件，ACCESS2000数据库里面有一个BOOK表，BOOK里面有"ID"，"AdminUser"，"AdminPwd"三个字段，ID=1,AdminUser=admin,AdminPwd=admin888

我想请教各位高手，怎么可以连接到我的数据库(相对连接)，并与FrmLogin窗体的TxtUser,TxtPwd对象的值相比较。如果ACCESS里面的AdminUser，AdminPwd和FrmLogin窗体里面的TxtUser,TxtPwd相同则关闭FrmLogin，并打开FrmMain窗体。如果不相符则退出系统。谢谢各位高手了。

如果还有不知道的，我可以再详细的说一下。

可以用控件或DAO、ADO来连接指定的数据库并返回记录集，同时再将输入的姓名和密码用DO和LOOP进行比较，如果有则退出循环并打开主程序。在这之前需声明一个标志，FORM初始化时为假，在DO循环中如果有则为真，然后再判断是否打开主画面。

这样的回答也太简单了，可不可以说清楚一点呀

其实二楼说的已经差不多了,只是没讲到数据库里循环还需要使用到记录指针,比如EOF来判断记录是否已经到最未尾

大家好啊,我是VB的初学者!最近没事照着教材做了几个小小的系统!但运行时总出错!而且错误多数是-"变量没定义"代码我基本是是安书上写的.不知怎么硬是出错!我反凝是没连接到数据库......
真是急死我了,那位知道的大哥帮个忙啊,帮我解决一下这个问题.
登录窗体代码如下:
Option Explicit
Dim loginsucceeded As Boolean
Private Sub cmdcance1_click()
Unload Frmlogin
Introfrm.Show
End Sub
Private Sub cmdOK_Click()
If txtusername.Text = "administrator" Then
loginsuccessded = verify(txtusername, txtpassword)
If (loginsuccessded = ture) Then
id = textusenrname
admin = True
Unload Frmlogin0
MDIMainfrm.Show
End If
Else
loginsuccessded = verify(txtusername, txtpassword)
If (loginsuccessded = True) Then
id = textusername
admin = False
Unload Frmlogin
MDIMainfrm.Show
End If
End If
End Sub
Function verify(userid As String, txtpwd As String) As Boolean
Dim idinfo As Recordset
Dim sqlstr As String
sqlstr = "select 学号，密码 from 密码 where 学号= '" & userid & "'"
Set idinfo = coursedb.OpenRecordset(sql, dbOpenSnapshot, dbReadOnly)
If (idinfo.recorcount = 0) Then
MsgBox
verify = False
Else
If (idinfo.Fields("密码").Value = txtpwd) Then
verifr = True
Else
MsgBox
verify = False
End If
idifo.Close
End Function

End Function

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

标准模块代码为:

Public id As String
Public username As String
Public coursedb As Database
Public admin As Boolean
Sub commitform(courseid, cuorsename)
With Fillfrm
.nametext.Text = username
.nametext.Locked = True
.idtxt.Text = id
.idtxt.Locked = True
.coursenametxt = coursename
.courseidtxt = xourseid
End With
Fillfrm.Show vbModal
End Sub
Sub opendb()
DBEngine.DefaultType = dbUseJet
Set coursedb = DBEngine.OpenDatabase("course.mdb", False, False)
End Sub
那位知道是怎么回事的大哥望速给我回话.