VB数据库连接之三（数据绑定）

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