Public Sub erf()
    Dim rs                         As ADODB.Recordset
    Dim cnn                        As ADODB.Connection
    Set rs = New ADODB.Recordset
    Set cnn = CurrentProject.Connection    'здесь м.б. и Open
    With rs
        .CursorLocation = adUseClient    'Обязательно курсор клиентский
        .Open  "tbl0Settings" , cnn, adOpenKeyset, adLockBatchOptimistic, adCmdTable

        Set .ActiveConnection = Nothing    ' отключаемся от сервера. Делаем свое черное дело хоть год

        Debug.Print .GetString    ' смотрим что есть

        .AddNew    'добавим что нибудь
        .Fields("Поле1").Value = 1111
        .Fields("Поле2").Value = "new2"
        .Fields("Поле3").Value = "Comment"

        'После требуемых операций восстанавливаем подключение
        Set .ActiveConnection = cnn
        .UpdateBatch    ' обновляем
        Debug.Print .GetString    ' см. что есть
    End With
    'подчищаем за собой
    rs.Close
    Set rs = Nothing
    cnn.Close
    Set cnn = Nothing
End Sub