关于datalist显示数据库内容解决方案

关于datalist显示数据库内容
我想通过点击datalist中编号，使得text1~text7显示access中对应的记录内容，当我不知道怎样定义datalist和text连接的代码。

[解决办法]
把文本框也绑定数据库，通过以下代码实现：

VB code

Option ExplicitPrivate Sub DataList1_Click()     Adodc1.Recordset.Move DataList1.SelectedItem - 1, 1End SubPrivate Sub Form_Load()    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _               "Data Source = C:\wgbc.mdb;Persist Security Info=False"    Adodc1.CursorLocation = adUseClient    Adodc1.CommandType = adCmdText    Adodc1.RecordSource = "select * from ip"    Adodc1.Refresh    Set DataList1.DataSource = Adodc1    Set DataList1.RowSource = Adodc1    DataList1.ListField = Adodc1.Recordset.Fields(0).Name        Set Text1.DataSource = Adodc1    Text1.DataField = Adodc1.Recordset.Fields(1).Name    Set Text2.DataSource = Adodc1    Text2.DataField = Adodc1.Recordset.Fields(2).NameEnd Sub