).
Вот что я делаю:
Set con = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
con.ConnectionString = "Extended Properties=" + Chr(34) + "DSN=База данных MS Access;DBQ=" + "C:\myDB.mdb" + Chr(34)
con.Open
rs.Source = "SELECT * FROM Пациенты"
rs.Open , con, adOpenDynamic, adLockOptimistic
Все работает. Могу связать это с текстовым полем, таблицей: никаких проблем НЕТ!!!
Set Grid.DataSource = rs
Set Text1.DataSource = rs
Text1.DataField = "Фамилия"
Если же пытаюсь связывать recordset s datalist'ом, то ни ошибок, ни результата.
DataList1.DataField = "Отделение"
DataList1.ListField = "Отделение"
DataList1.BoundColumn = "ID"
Set DataList1.DataSource = rs1
Set DataList1.RowSource = rs
'rs1 - это, разумеется, другая таблица, куда я и хочу помещать в конце-концов данные.
Интересно, что когда я для всего этого использовал элемент управления Adodc, список заполнялся в легкую. Но были другие проблемы, которые и заставили от него отказаться.