Запись в массив и вывод в MsgBox

Dim str As String
Dim rst As Recordset
Me.Dirty = False
Set rst = Me.RecordsetClone
rst.MoveFirst
i = 0
Do While Not rst.EOF
If rst!Rabotaet = -1 Then
i = i + 1
    str = str & rst!Код & rst!Naimen & rst!Gorod & rst!FIO & rst!Rabotaet
End If
rst.MoveNext
Loop
If i > 0 Then
MsgBox "Проверка" & str
Else
MsgBox "Ничего не выбрано"
End If

Private Sub Сохранить_Click()
Dim str As String
Dim rst As Recordset
Me.Dirty = False
Set rst = Me.RecordsetClone
rst.MoveFirst
'i = 0
Do While Not rst.EOF
If rst!Rabotaet = -1 Then
'i = i + 1
    str = str & rst!Код & rst!Naimen & rst!Gorod & rst!FIO & rst!Rabotaet
End If
rst.MoveNext
Loop
If Me.RecordsetClone.RecordCount > 0 Then
MsgBox "Проверка" & str
Else
MsgBox "Ничего не выбрано"
End If
End Sub

Private Sub Сохранить_Click()
Dim str AS String ‘ переменная в которую будет дописываться значения нужных строк
Dim rst AS Recordset ‘ создаем набор записей на основе открытой формы (чтоб не елозить по самим записям
Me.Dirty = FALSE ‘ записываем все последние изменения на форме в таблицу данных перед анализом (используем свойство формы) 
 
SET rst = Me.RecordsetClone ‘ присваиваем переменной значения нашего рекордсета (набора записей) нашей переменной
rst.MoveFirst ‘ переход на первую запись набора записей
 
i = 0 ‘ это нужно было для подсчета строк, которые удовлетворяют нашему условию
 
Do While Not rst.EOF ‘ делаем цикл пока не будет конец набора записей, если записей нет, то в цикл не входим
 
If rst!Rabotaet = -1 Then ‘ проверка условия
 
i = i + 1 ‘ увеличиваем счетчик нужных записей
 
    str = str & rst!Код & rst!Naimen & rst!Gorod & rst!FIO & rst!Rabotaet ‘ обрати внимание что рекордсет обращается к данным а не к полям формы rst!FIO
END IF
rst.MoveNext ‘ переход на следующую запись
 
Loop 
 
‘ IF Me.RecordsetClone.RecordCount > 0 THEN ‘ твое условие не верно, так набор может содержать записи а нужных среди них нет вообще
IF i>0  THEN ‘ если нужные записи в наборе оказались то выводим о них сообщение
MsgBox "Проверка" & str,, "Отобрано " & I & " записей"
ELSE
MsgBox "Ничего не выбрано"
END IF
END Sub