Insertar pdf en excel mediante VBA

Hola
 tengo la siguiente duda tengo un informe al que se deben insertar documentos en PDF o imagen en hojas separadas en el libro , mediante codigo VBA pero al insertar el documento PDF me envia un error.
Aqui esta el codigo que tengo para generar el informe.
 ojala me puedas ayudar
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT proforma,path_proforma FROM detalle_pedido where id_pedido   = " & id_pedido & " group by proforma, path_proforma;", cnt, adOpenStatic
    Do While Not rst.EOF
        If rst!path_proforma <> "" Then
            xllibro.Sheets.Add after:=xllibro.Sheets(xllibro.Sheets.Count)
            If Right(rst!path_proforma, 3) <> "pdf" Then
                xllibro.Sheets(xllibro.Sheets.Count).Pictures.Insert(rst!path_proforma).Select
            Else
                xllibro.Sheets(xllibro.Sheets.Count).OLEObjects.Add(Filename:=rst!path_proforma).Select 'Aqui se produce el error 1004 no se puede insertar el objeto
            End If
            xllibro.Sheets(xllibro.Sheets.Count).Name = "PROFORMA  " & rst!proforma
        End If
    rst.MoveNext
    Loop
rst.Close