ищ
Дата: 27.05.2004 12:52:34
папаримский. ты меня иногда удивляишь отсталыми понятиями.
давно уже (4 года назад еще) сделали рекордсет в одну строку
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT DISTINCT Клиент FROM Клиенты ORDER BY Клиент;", CurrentProject.Connection
Список1.RowSource = rst.GetString(adClipString, , ";", ";")