在编程时我使用如下代码设定各个部件的数据源, 在程序刚刚启动时都能够正常显示,rs语句执行时也没有错误，但是各个部件中只能显示第一个数据，在点击datalist中的列表时其它部件中的数据不能随之而变，是什么原因呢？
Set ygdatalist.RowSource = rs
ygdatalist.ListField = "name"
Set ygname.DataSource = rs
ygname.DataField = "name"
Set ygid.DataSource = rs
ygid.DataField = "id"
Set ygsex.DataSource = rs
ygsex.DataField = "sex"
Set ygtel.DataSource = rs
ygtel.DataField = "tel"
Set djdate.DataSource = rs
djdate.DataField = "djdate"
Set ygpic.DataSource = rs
ygpic.DataField = "picture"
Set ygintroduction.DataSource = rs
ygintroduction.DataField = "introduction"
哪位高手能指点一下？