Какой код вставить в пробелы для изменения поля из текстового в поле мемо?

On Error Resume Next
    Dim myDatabase As Database
    Dim myTableDef As TableDef
    Dim myRecordset As Recordset
    Dim fldTableDef As Field
    Dim myPath As String
    Set myRecordset = CurrentDb().OpenRecordset("SELECT nastroiki.*FROM nastroiki;", dbOpenDynaset, dbSeeChanges)
    myPath = myRecordset!path_base
    Set myDatabase = OpenDatabase(myPath)
    Set myTableDef = myDatabase("dokumenti")
    With myTableDef
    
    
    
    End With
    If Err.Number = 0 Then
    MsgBox "Поле 'fio_dok' в таблице dokumenti переделано в Мемо", , "Сообщение"
    Else
    MsgBox Err.Description, , "Ошибка"
    End If

http://www.sql.ru/forum/1096671/kak-peredelat-tekstovoe-pole-v-pole-memo-kodom