Sub ToBazes()
'
' AutorAphorizm Макрос
' Макрос записан 02.01.2008 Juriy Kozmin
'
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim strSource As String
    'MsgBox Selection
    strSource = "C:\Банки\Афоризмы.accdb" ' путь к файлу
    strCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
        & "Data Source=" & strSource _
        & ";Persist Security Info=False"


    cnn.Open strCnnString 'открываем базу
    rst.Open "SELECT * FROM Афоризм", cnn, adOpenStatic, adLockOptimistic 'открываем recordset
    
    rst.AddNew 'добавляем запись
    rst.Fields( 1 ) = Autor 'заносим в первый столбец выделенный фрагмент
    rst.Fields( 2 ) = Textum 'заносим во второй столбец выделенный фрагмент
    rst.Update 'обновляем
    
    rst.Close
    cnn.Close
    
    Set rst = Nothing
    Set cnn = Nothing
End Sub