Заполнить массив данными из RecordSet

Question

У меня есть запрос, который содержит необходимые данные, но мне нужно получить данные из запроса в формате
номер объекта - идентификатор сотрудника
номер объекта - идентификатор сотрудника
номер объекта -идентификатор сотрудника

И так далее ... Я пытался написать свой код, который будет ниже, но я получаю ошибку компиляции
'Ошибка компиляции:
Несоответствие типов'
Эта ошибка возникает в &

Как правильно получить данные из набора запросов в нужном мне формате?Полная картина, я хочу получить данные из запроса в формате XXXX - XXXX, чтобы я мог использовать их в теле письма, которое я генерирую в своем коде VBA.

Dim en() As String
Dim ei() As String                                                   
Set rs = db.OpenRecordset("qryData")
If Not (rs.BOF And rs.EOF) Then
rs.MoveLast
rs.MoveFirst
While (Not rs.EOF)
    en = en & vbCrLF & Space(7) & rs![public systems.entity number]
    ei = ei & vbCrLF & Space(7) & rs![public systems.employee id]
    rs.MoveNext
  Wend
End If

Answer 1

Я хочу получить данные из запроса в формате XXXX - XXXX так что я могу использовать его в теле письма

Это не массив, поэтому используйте строку:

Dim rs As DAO.Recordset
Dim en As String
Dim ei As String                                                   

Set rs = CurrentDb.OpenRecordset("qryData")
If Not (rs.BOF And rs.EOF) Then
    rs.MoveLast
    rs.MoveFirst
    While Not rs.EOF
        en = en & vbCrLF & Space(7) & rs![public systems.entity number].Value
        ei = ei & vbCrLF & Space(7) & rs![public systems.employee id].Value
        rs.MoveNext
    Wend
End If
rs.Close