Private Sub frmORG_ModifyOrgAttr(mdfAttr() As String)
Dim cnn As New ADODB.Connection
cnn.ConnectionString = ActConn
cnn.Open
    Dim synCmd As New ADODB.Command
    On Error GoTo Err_Handler
    With synCmd
        Set .ActiveConnection = cnn
        If .ActiveConnection Is Nothing Then
            MsgBox "Сервер недоступен." & vbCrLf & _
                   "Измененное наименование не сохранено", _
                   vbExclamation + vbOKOnly, "Запись изменённого наименования"
            Exit Sub
        End If
        .CommandType = adCmdStoredProc
        .CommandText = "sp_S_ORG_upd"
        .Parameters.Refresh
    End With
    '    Procedure sp_S_ORG_upd /*Procedure_Name*/
    '      @KOrg                T_Key       1
    '    , @KClient             T_Key = 0   2
    '    , @NmOrg varchar(30) = NULL        3
    '    , @TownOrg T_Town    = NULL        4
    '    , @AdresOrg varchar(20) = NULL     5
    '    , @KBank T_Key       = 0           6
    '    , @RS varchar(20)    = NULL        7
    '    , @OKPO varchar(15)  = NULL        8
    '    , @NSPR varchar(18)  = NULL        9
    '    , @IPN varchar(12)   = NULL        10
    '---------------------------------------------------
        synCmd( 1 ).Value = CLng(mdfAttr( 0 ))  '1-KOrg int(4)
        synCmd( 2 ).Value =  0                  '2-KClient             T_Key = 0
        synCmd( 3 ).Value = mdfAttr( 1 )        '3-NmOrg varchar(30)
        synCmd( 4 ).Value = mdfAttr( 2 )        '4-TownOrg T_Town    = NULL
        synCmd( 5 ).Value = mdfAttr( 3 )        '5-AdresOrg varchar(20) = NULL
        synCmd( 6 ).Value =  0                  '6-KBank T_Key       = 0
        synCmd( 7 ).Value = mdfAttr( 4 )        '7-RS varchar(20)    = NULL
        synCmd( 8 ).Value = mdfAttr( 5 )        '8-OKPO varchar(15)  = NULL
        synCmd( 9 ).Value = mdfAttr( 7 )        '9-NSPR varchar(18)  = NULL
        synCmd( 10 ).Value = mdfAttr( 6 )       '10-IPN varchar(12)  = NULL

        synCmd.Execute
        GoTo Exit_Sub
    '---------------------------------------------------
Err_Handler:
        If Err.Number <>  0  Then
                MsgBox "Ошибка №" & Err.Number & " " & Err.Description
        End If
        If synCmd.ActiveConnection.Errors.Count >  0  Then
            Dim myErr As Error
            For Each myErr In synCmd.ActiveConnection.Errors
                MsgBox "Ошибка №" & myErr.Number & " " & myErr.Description
            Next myErr
        End If
        Err.Clear
Exit_Sub:
        On Error GoTo  0 
        Set cnn = Nothing
End Sub