Sub AddToMemo()
	Dim dbs As Database, rst As Recordset
	Dim fldNotes As Field, fldFirstName As Field
	Dim fldLastName As Field
	Dim lngSize As Long, strChunk As String

	' Возвращает ссылку на текущую базу данных.
	Set dbs = CurrentDb
	' Создает табличный объект Recordset.
	Set rst = dbs.OpenRecordset( "Сотрудники" )
	' Возвращает ссылки на объекты Field.
	Set fldNotes = rst!Примечания
	Set fldFirstName = rst!Имя
	Set fldLastName = rst!Фамилия
	
	' Цикл по всем записям в наборе записей.

Do Until rst.EOF
		' Проверяет существование данных в поле «Примечания».
		If IsNull(fldNotes.Value) Then
			' Если данных нет, используется только метод AppendChunk.
			strChunk = fldFirstName _
				&  " "  & fldLastName &  " отличный сотрудник." 
			With rst
				.Edit
				!Примечания = strChunk
				.Update
				.MoveNext
			End With
		Else
			lngSize = Len(fldNotes)
			' Получает существующие данные с помощью метода GetChunk.

strChunk = fldNotes.GetChunk(0, lngSize)
			' Изменяет данные.
			strChunk = strChunk &  "  "  & fldFirstName _
				&  " "  & fldLastName &  " отличный работник." 
			With rst
				.Edit							 ' Разрешает редактирование.
				!Примечания = ""			 ' Инициализирует поле.
				!Примечания.AppendChunk strChunk	 ' Добавляет измененные данные.
				.Update						 ' Сохраняет изменения.
				.MoveNext					 ' Переходит к следующей записи.

End With
		End If
	Loop
	rst.Close
	Set dbs = Nothing
End Sub