为ACCESS做一个登陆界面1、首先在部件-控件里找到MicrosoftADODataControl6.0，打勾，然后在窗体上添加ADOdc1。
2.添加两个文本输入框text1,text2，分别用来接收用户输入用户名和密码。
3、在Adodc1控件的属性窗口中单击Connectionstring右侧的…按钮，打开ADO的属性页，选择“使用连接字符串”，单击“生成”按钮，打开数据链接属性对话框，在“提供程序”页中选择MicrosoftJet4.0OLEDBProvider，单击“下一步”，在“连接”页中，输入数据库名称XXXX.mdb（前提是将数据库文件和工程文件保存在同一目录下），单击“测试连接”，如果连接成功，单击“确定”即可。
4、将以下代码添加到登录按钮：
PrivateSubCommand1_Click()
Adodc1.RecordSource=”select*from数据表名称whereusername='”&Text1.Text&”‘”
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox”没有这个用户，请重新输入正确的用户名”,,”错误提示”
Else
IfText2.Text=Adodc1.Recordset.Fields(“password”)Then
MsgBox”登录成功！”,,”错误提示”
Else
MsgBox”你的密码错误,请输入正确的用户密码！”,,”错误提示”
EndIf
EndIf
EndSub