Try this, may be this will help ;>)

YourRecordSet.open blah blah blah ...
YourRecordSet.Movefirst

dataList1.listfield = YourFieldName
Set dataList1.DataSource = YourRecordSet
Set dataList1.RowSource = YourRecordSet

Regards
Winan