Проста връзка с visual basic 6.0

Здр!

Искам да ви попитам, ако някой знае... да ми помогне относно казус възникнал в следния сорс:
Решех да експериментирам и направих връзка - visual basic 6.0 i excel 2003.
За какво става дума:

Ето част от сорса:
Dim AppXLS As Object
Dim Tablica2 As Object
Dim BroiZapalneniRedove As Integer


Private Sub Form_Load()
List1.Clear
'създавам обект на приложението Excel
Set AppXLS = CreateObject("Excel.Application")
'определям пълния път до файла и го отварям
PatFile = App.Path & "\spravka.xls"
AppXLS.Workbooks.Open FileName:=PatFile
създавам обект sheet1 за удобство
Set Tablica2 = AppXLS.ActiveWorkbook.Sheets("Sheet1")
end sub


Private Sub List1_Click()
Dim z As Integer
Izbranslujitel = List1.Text
For j = 4 To 300
If Tablica2.Range ("A" & j) = Izbranslujitel Then
NomernaRed = Tablica2.Range("A" & j).Row
Rows(NomernaRed).Select

z = 1
'Показва служител
z = z - 1
Form1.txtслужител = Tablica2.ActiveCell.Offset(0, z).Value

End If
Next j
End Sub

Та въпроса ми е следния : защо бейсик не разпознава Rows?
пробвах с Tablica2.rows(Nomernared).row
но ми съобщава , че не е дафиниран Rows
Интересува ме може ли Rows да го заменя с друг........