Добрый день!
Есть две таблицы: люди и образование, связанные как один ко многим. Нужно сделать запрос, в котором бы выводились люди с их обраозванием, при этом чтобы одному человеку соответствовала лишь одна строка.
Сейчас я решил это посредством функции:

Public Function FieldToLine(id As Long) As Variant
    Dim Adors As Object
    Dim strSQL As String
    
    strSQL = "SELECT ÎáðàçîâàíèåÑêëååíîå.Îáðàçîâàíèå " & _
        "FROM ÎáðàçîâàíèåÑêëååíîå WHERE ÎáðàçîâàíèåÑêëååíîå.Êîä=" & id
    
    Set Adors = CreateObject("ADODB.Recordset")
    Adors.Open strSQL, CurrentProject.Connection, , , 1
    
    If Not Adors.EOF Then FieldToLine = Adors.GetString(, , , vbCrLf)
    Adors.Close
    
    If Len(FieldToLine) > 0 Then
        FieldToLine = Left$(FieldToLine, Len(FieldToLine) - 2)
    Else
        FieldToLine = Null
    End If
End Function

Но если таблица содержит хотя бы 1000 записей, то запрос начинает прилично тормозить. Посоветуйте пожалуйста, как можно исправить эту ситуацию?

http://www.sql.ru/forum/1093572/obedinenie-neskolkih-zapisey-v-odnu