vb调用word第二次运行时就出现462错误提示：远程服务器不存在或不能使用

本人初学vb，以下代码是我程序中截取的，程序要求在不关闭情况下可多次运行，但是在第二次运行时就出现462错误提示：远程服务器不存在或不能使用，烦请高人指点。谢谢！

              With objTable
                   Dim rst1 As Recordset  '声明设定参数 rs 为 Recordset类型的数据
    Set rst1 = New ADODB.Recordset  '初始化参数为一个新的ADODB型Recordset
'        With objTable
'            Set rst1 = CurrentProject.Connection.Execute("select 供应商,产品型号,产品规格,数量,产品ID from 销售记录详情 where 订单ID ='" & rst1("订单ID") & "'")
    strSQL = "select * from 销售记录详情 where 订单ID='" & rst!订单ID & "'"
rst1.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst1.MoveFirst
            Do While Not rst1.EOF
                .Cell(i, 1).Range = Nz(rst1("供应商"), "")
                .Cell(i, 2).Range = Nz(rst1("产品型号"), "")
                .Cell(i, 3).Range = Nz(rst1("产品规格"), "")
                .Cell(i, 4).Range = Nz(rst1("数量"), "")
                .Cell(i, 5).Range.InlineShapes.AddPicture (CurrentProject.path & "\图片\" & hqtp(rst1("产品ID")))
                ActiveDocument.InlineShapes(i - 1).Height = 30  '这句报错  第一次有用 第二次就会报错
                ActiveDocument.InlineShapes(i - 1).Width = 40
               i = i + 1
            rst1.MoveNext
            Loop
'    rst1.Close
        End With