麻烦看下代码从外部CAD文件插入块有啥错误

Public Sub InserBlock()
        Dim acDoc As Document = Autodesk..ApplicationServices.Application.DocumentManager.MdiActiveDocument
        Dim acDatabase As Database = acDoc.Database
        Dim acEditor As Editor = acDoc.Editor
        Dim pPtRes As PromptPointResult
        Dim pPtOpts As PromptPointOptions = New PromptPointOptions("")
        pPtOpts.Message = vbLf & "请选择插入点:"
        pPtRes = acEditor.GetPoint(pPtOpts)
        Dim InsertPt As Point3d = pPtRes.Value
        If pPtRes.Status = PromptStatus.Cancel Then
            Exit Sub
        End If
                Using trans As Transaction = acDatabase.TransactionManager.StartTransaction
                Dim acBlockTable As BlockTable = trans.GetObject(acDatabase.BlockTableId, OpenMode.ForRead)
                Dim FilePath As String = "D:\2RD\PMDS\PMDS\Resources\PFD.dwg"
                Dim FileName As String = "PFD.dwg"
                Dim BlockName As String = "TextBox1.Text"
                If acBlockTable.Has(BlockName) = True Then
                    Dim Block As BlockReference = New BlockReference(InsertPt, acBlockTable(BlockName))
                    Block.ScaleFactors = New Scale3d(1, 1, 1)
                    Block.Rotation = 0
                    Dim ModelSpace As BlockTableRecord = trans.GetObject(acDatabase.CurrentSpaceId, OpenMode.ForWrite)
                    ModelSpace.AppendEntity(Block)
                    trans.AddNewlyCreatedDBObject(Block, True)
                    trans.Commit()
                Else
                    Dim db As New Database(False, False)
                    db.ReadDwgFile(FilePath, IO.FileShare.Read, False, "")
                    Dim id As ObjectId = acDatabase.Insert(FileName, db, False)
                    If id.IsValid = False Then
                        Exit Sub
                    End If
                    Dim Block As BlockReference = New BlockReference(InsertPt, acBlockTable(BlockName))
                    Block.ScaleFactors = New Scale3d(1, 1, 1)
                    Block.Rotation = 0
                    Dim ModelSpace As BlockTableRecord = trans.GetObject(acDatabase.CurrentSpaceId, OpenMode.ForWrite)
                    ModelSpace.AppendEntity(Block)
                    trans.AddNewlyCreatedDBObject(Block, True)
                    trans.Commit()
                End If
            End Using
    End Sub