Solved! Go to Solution.
Set objLayer = Application.Map.Layers("Parcel")
Dim pDS
Set pDS = Application.Map.Layers("Parcel").DataSource
Dim pRS
Set pRS = pDS.Execute("SELECT * FROM PARCEL WHERE APN = 225112008")
If (pRS is Nothing) Then
MsgBox("No Record Found!")
Exit Sub
End If
pRS.MoveFirst
Do While Not pRS.EOF
msgBox(pRS.Fields(3).Name & ": " & pRS.Fields(3).Value & vbnewline & pRS.Fields(5).Name & ": " & pRS.Fields(5).Value)
pRS.MoveNext
Loop