[artemu88]

Немного доработал код, но все равно ничего нет в листе

Set rs = New adodb.Recordset
rs.Open "SELECT Au_id FROM Authors ", cn
Set DataList1.RowSource = rs
DataList1.ListField = "Au_id"

[Iska]

ставлю DBList1.DataSource = rs, пишет method or data member not found »

DBList binding... - Xtreme Visual Basic Talk

[artemu88]

Option Explicit
Dim cn As adodb.Connection, rs As adodb.Recordset, SQL As String
..................
Set rs = New adodb.Recordset
SQL = "SELECT Author FROM Authors "
rs.Open SQL, cn, adOpenStatic, adLockReadOnly
Set DataList1.RowSource = rs
DataList1.ListField = "Author"
End Sub
И ВСЕ ПОЛУЧИЛОСЬ! СПАСИБО!!