1.添加Microsoft ADO Data Control 6.0(OLEDB)控件
2.设置窗体 文本框名称分别为：txtUserName txtPassWord
3.按下图设置Adodc1控件属性值：
点击生成，进入下一对话框
选择Microsoft Jet 4.0 OLE Provider，单击下一步
点击测试连接，进入开始对话框
至此控件设置成功
4.将txtUserName控件和txtPassWord控件绑定到Adodc1控件
将txtUserName的DataSource属性设置为Adodc1，DataFiled属性设置为用户名
将txtPassWord的DataSource属性设置为Adodc1，DataFiled属性设置为口令
5.代码实现
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, _
ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _
ByVal pRecordset As ADODB.Recordset)
'使ADO Data控件显示当前记录编号和总记录数
Adodc1.Caption = "当前记录：" & Adodc1.Recordset.AbsolutePosition _
& "/" & Adodc1.Recordset.RecordCount
End Sub