如何实现两个datalist与一组textbox的数据关联啊？？100分

我要实现两个datalist与一组textbox的数据关联，其功能是在datalist1中列出从数据库中选出的各分店的店名（使用adodc1），在datalist2中列出该店所有员工名字。单击datalist1中的记录，在datalist2中列出该店所有员工名字，单击datalist2中的记录则在textbox控件中显示该员工的所有信息。我用的代码如下：
Private Sub DataList1_Click()
  Dim str As String
  
  str = "select wname from worker where shopid='" & DataList1.BoundText & "'"
  With Adodc2
      .RecordSource = str
      .Refresh
  End With
  DataList2.ReFill
End SubPrivate Sub DataList2_Click()
 Dim rs As New ADODB.Recordset
 Dim con As New ADODB.Connection
 Dim str As String
 
 con.Open "dsn=ydgl;uid=;pwd=;"
 rs.ActiveConnection = con
 str = "select * from worker where workid='" & DataList2.BoundText & "'"
 rs.Open str, con
 
 
 If Not (rs.BOF) And Not (rs.EOF) Then
  Text1.Text = rs!workid & ""
   Text2.Text = rs!shopid & ""
 Text3.Text = rs!wname & ""
 Text4.Text = rs!workdate & ""
 Text5.Text = rs!job & ""
 Text6.Text = rs!salary & ""
  Text7.Text = rs!bx & ""
end if现在问题是在单击datalist2的记录的时候textbox控件中的记录没有变化。请各位高手指教。一定给分！！！！