Mfauxock, this will give you a starting point. The code will find all Attributes and text in your drawing and display the text string.
Sub GetAttribValue()
Dim objBlkRef As AcadEntity
Dim objSelSet As AcadSelectionSet
Dim Atts As Variant
Dim iCount As Integer
Dim I As Integer
Dim varData(0) As Variant
Dim intType(0) As Integer
varData(0) = "INSERT,TEXT"
intType(0) = 0
Set objSelSet = ThisDrawing.PickfirstSelectionSet
objSelSet.Select acSelectionSetAll, filtertype:=intType, filterdata:=varData
For Each objBlkRef In objSelSet
'if attribute
If objBlkRef.ObjectName = "AcDbBlockReference" Then
If objBlkRef.HasAttributes Then
Atts = objBlkRef.GetAttributes
iCount = UBound(Atts)
Do While I < iCount + 1
MsgBox Atts(I).TextString '<---- the serch in database will go here
I = I + 1
Loop
End If
End If
'if text
If objBlkRef.ObjectName = "AcDbText" Then
MsgBox objBlkRef.TextString '<---- the serch in database will go here
End If
Next objBlkRef
End Sub
