Function Exec_StoredProc(comm As String, v_rec As Boolean, target_table As String) As Integer

' Выполнение запроса на сервере'
' comm - команда, в том числе и exec ....'
' v_rec - признак возвращения записей'
' target_table - таблица для помещения результата'
        Dim cb As Database
        Set cb = CurrentDb
        Set qd = cb.CreateQueryDef( "ServerSQL" )
        qd.Connect = connection_string
        qd.ReturnsRecords = v_rec
        qd.SQL = comm
        qd.ODBCTimeout =  0 
        If v_rec Then
            docmd.RunSQL  "Insert into "  & target_table &  " Select ServerSQL.* from ServerSQL;" 
        Else
            qd.Execute dbFailOnError
        End If
        Exec_StoredProc =  0 
        qd.Close
        cb.QueryDefs.Delete  "ServerSQL" 
        cb.Close
End Function