ActiveSheet.Pictures.Insert ("e:\gal91client2\kamaz.jpg")
Set x = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)

 Set x = ActiveSheet.Pictures.Insert("e:\gal91client2\kamaz.jpg")

   Dim x As Object
   ActiveSheet.Pictures.Insert ("e:\gal91client2\kamaz.jpg")  Здесь вроде должен определиться "Picture 1"
   Set x = ActiveSheet.Shapes.Range(Array("Picture 1"))   'Здесь ошибка- компонент с указанным именем не найден
   MsgBox x.Name
   x.ScaleWidth 0.37375, msoFalse, msoScaleFromTopLeft 
   x.ScaleHeight 0.3737499563, msoFalse, msoScaleFromTopLeft

Sub Format()
    Range("e1").Select
    With ActiveSheet.Pictures.Insert("E:\GAL91Client2\Kamaz.jpg")
        .Select
     End With
    Selection.ShapeRange.IncrementLeft 106.5

Sub Format()
    Range("e1").Select
    ActiveSheet.Pictures.Insert("E:\GAL91Client2\Kamaz.jpg").Select  'Нормально
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select   'Ошибка здесь
....
End Sub

stroka = "MyProcedure"
Cmd.CommandText = stroka
Set RecSet = Cmd.Execute()

stroka = "select * from Table order by scode;"
Cmd.CommandText = stroka
Set RecSet = Cmd.Execute()
If RecSet.State <> adStateClosed Then
    Range("A3").CopyFromRecordset RecSet
    Else: MsgBox "RecSet закрыт. Это плохо.." & vbCrLf
End If

...
create table #StBudj
 (
     nrec  binary(8)     not null, 
     path  varchar(max)  not null, 
     name  varchar(max)  not null, 
     level int           not null, 
     scode varchar(max)  not null,
 );
insert into #StBudj(nrec, path, name, level, scode) select 0x11, 'path', 'name', 11;  -- На эту строку ошибка выдаётся
select * from #stbudj;

Option Explicit
Public Conn As New ADODB.Connection
Public Cmd As ADODB.Command
Public RecSet As New ADODB.Recordset
...
Conn.ConnectionString = "PROVIDER=SQLOLEDB; SERVER=MKS; DATABASE=devel; TRUSTED_CONNECTION=NO; UID=user; PWD=password"
Conn.ConnectionTimeout = 3600
Conn.CommandTimeout = 3600
Conn.Open
Set Cmd = New ADODB.Command
Set Cmd.ActiveConnection = Conn
Cmd.CommandType = adCmdText
Cmd.CommandTimeout = 3600
Dim stroka As String
stroka = "MyProcedure"
Cmd.CommandText = stroka
Set RecSet = Cmd.Execute()
Range("A4").CopyFromRecordset RecSet
Set RecSet = Nothing
Set Cmd = Nothing
Set Conn = Nothing

Option Explicit
Public Conn As New ADODB.Connection
Public sCmdStroka As String
Public RecSet As New ADODB.Recordset
Public iLastRow As Integer
Function iCreate_tFpCo(iKol As Integer) As Integer  'Cоздать в базе devel таблицу sTable по колонке iKol
    iLastRow = Cells(Rows.Count, iKol).End(xlUp).Row
    On Error GoTo ErrorHandler
    With Conn
    .CursorLocation = 3
    .ConnectionString = "PROVIDER=SQLOLEDB; SERVER=MKS-GALAKTIKA2; DATABASE=devel; TRUSTED_CONNECTION=NO; UID=naz; PWD=rjkyf"
    .ConnectionTimeout = 15
    .CommandTimeout = 3600
    .Mode = 3
    .Open
    End With
    sCmdStroka = "if exists (select * from dbo.sysobjects where id = object_id(N'tFpCo','U')) drop table tFpCo;" & _
                 vbCr & " create table tFpCo (sFpCo varchar(max) not null);"
    Conn.Execute sCmdStroka
    sCmdStroka = "Select * from tFpCo"
    RecSet.Open sCmdStroka, Conn, 3, 3
    Row = 2
    If iLastRow > 1 Then
        Do While Row <= iLastRow
            With RecSet
            .AddNew
            .Fields("sFpCo").Value = Cells(Row, iKol).Value
            .Update
            End With
            Row = Row + 1
        Loop
    End If
    ClouseRecSet
    ClouseConn
    Exit Function
ErrorHandler:
    ClouseRecSet
    Set Cmd = Nothing
    ClouseConn
    If Err <> 0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
End Function
Public Sub ClouseRecSet()
    If Not RecSet Is Nothing Then
        If RecSet.State = adStateOpen Then RecSet.Close
    End If
    Set RecSet = Nothing
End Sub
Public Sub ClouseConn()
    If Not Conn Is Nothing Then
        If Conn.State = adStateOpen Then Conn.Close
    End If
    Set Conn = Nothing
End Sub

...   
 With Conn
    .CursorLocation = 3
    .ConnectionString = "PROVIDER=SQLOLEDB; SERVER=MKS-GALAKTIKA2; DATABASE=devel; TRUSTED_CONNECTION=NO; UID=naz; PWD=rjkyf"
    .ConnectionTimeout = 15
    .CommandTimeout = 3600
    .Mode = 3
    .Open
    End With
    sCmdStroka = "if exists (select * from dbo.sysobjects where id = object_id(N'tFpCo','U')) drop table tFpCo;" & _
                 vbCr & " create table tFpCo (sFpCo varchar(max) not null);"
    Conn.Execute sCmdStroka
    sCmdStroka = "Select * from tFpCo"
    With RecSet
    .Open sCmdStroka, Conn, 3, 3
    .AddNew
    .Fields("sFpCo").Value = "MyValue"
    .Update
    End With
...

Public Conn As New ADODB.Connection
Public RecSet As New ADODB.Recordset
...
    With Conn
    .CursorLocation = 3
    .ConnectionString = "PROVIDER=SQLOLEDB; SERVER=MKS-GALAKTIKA2; DATABASE=devel; TRUSTED_CONNECTION=NO; UID=naz; PWD=rjkyf"
    .ConnectionTimeout = 15
    .CommandTimeout = 3600
    .Mode = 3
    .Open
    End With
    sCmdStroka = "if exists (select * from dbo.sysobjects where id = object_id(N'tFpCo','U')) drop table tFpCo;" & _
                 vbCr & " create table tFpCo (sFpCo varchar(max) not null);"
    With RecSet
    .Open sCmdStroka, Conn, 3, 3
    .AddNew                       '--> Здесь ошибка!
    .Fields("sFpCo").Value = "MyValue"
    .Update
    End With
...