Sub proba()
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim strCnnString As String
    Dim strSource As String
    
    Set cnn = New ADODB.Connection

    ' Строка подключения ODBC.
    'strCnnString = "Driver={SQL Server};Server=HR-TEST;Database=Proba;Trusted_Connection=yes;"
    'strCnnString = "Driver={SQL Server};Server=HR-TEST;Database=Proba;Uid=userw;Pwd=userw;"
    ' Строка подключение OLE DB.
    ''strCnnString = "Provider=sqloledb;Data Source=HR-TEST;Initial Catalog=Proba;Integrated Security=SSPI;"
    strCnnString = "Provider=sqloledb;Data Source=HR-TEST;Initial Catalog=Proba;User Id=userw;Password=userw;"
    
    cnn.Open strCnnString
    
    ' Добавляем записи.
    Set rst = New ADODB.Recordset
    With rst
        .CursorLocation = adUseClient
        .Open "SELECT * FROM [test_table] ", cnn, adOpenStatic, adLockOptimistic
        .AddNew
        .Fields("name") = "vvv"
        .Fields("code") =  3 
        .Fields("proba") = "vvv"
        .Update
    End With
    rst.Close
    
    'удаляем записи
    'cnn.Execute "DELETE FROM test_table WHERE code = 1"


    ' Обновляем записи.
    'cnn.Execute "UPDATE test_table SET code = 222 WHERE name = 'vvv'"

    
    cnn.Close

    Set rst = Nothing
    Set cnn = Nothing
End Sub