Хотя лучше скиньте сюда весь код и укажите, на какой строчке возникает ошибка.
Public Sub tableatr(number As Integer)
Dim pFeatcls As IFeatureClass
Dim pFeatLayer As IFeatureLayer
Dim pDoc As ISxDocument
Dim pMap As IScene
Set pDoc = ThisDocument
Set pMap = pDoc.Scene
Set pFeatLayer = pMap.layer(number)
Set pFeatcls = pFeatLayer.FeatureClass
Dim pQFilt As IQueryFilter
Dim pFeatCur As IFeatureCursor
Set pQFilt = New QueryFilter
pQFilt.whereClause = "StreetName = '" & Module1.nameS & "'"
Dim str As Integer
str = pFeatcls.FindField(pQFilt.whereClause)
If str <> -1 Then
"А дальше если streetname='Значению одному'" буду выполнять код. Но все время -1 значение