Thank you kaefer and Jeff! I modified my code to use Database.ResolveXrefs and it reloaded the new ones. Here is the new code.
<CommandMethod("ImportPart")> _
Public Sub ImportPart()
Dim fname As String = "R:\TEST\X-REF MASTER FILES\000022-01-01 TEST\000022-01-01 test drawing.dwg"
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
Dim ed As Editor = doc.Editor
'Dim fname As String = "C:\Users\Jeff\Documents\Drawing1.dwg"
Dim ObjId As ObjectId
Using trx As Transaction = db.TransactionManager.StartTransaction
Using docLoc As DocumentLock = doc.LockDocument
Dim bt As BlockTable = db.BlockTableId.GetObject(OpenMode.ForRead)
Dim btrMs As BlockTableRecord = bt(BlockTableRecord.ModelSpace).GetObject(OpenMode.ForWrite)
Using dbInsert As New Database(False, True)
dbInsert.ReadDwgFile(fname, IO.FileShare.Read, False, "")
ObjId = db.Insert(Path.GetFileNameWithoutExtension(fname), dbInsert, True)
End Using
Dim ppo As New PromptPointOptions(vbCrLf & "Insertion Point")
Dim ppr As PromptPointResult
ppr = ed.GetPoint(ppo)
If ppr.Status <> PromptStatus.OK Then
ed.WriteMessage(vbCrLf & "You decided to QUIT!")
Exit Sub
End If
Dim insertPt As Point3d = ppr.Value
Dim bref As New BlockReference(insertPt, ObjId)
btrMs.AppendEntity(bref)
trx.AddNewlyCreatedDBObject(bref, True)
trx.Commit()
bref.ExplodeToOwnerSpace()
#############################
db.ResolveXrefs(False, False)
#############################
End Using
End Using
End If
Catch ex As Exception
End Try
End Sub