Subscript out of range..

[Bosch]

Hello..
I have the following code.
This code works fine in my computer..but getting subscript out of range message in another..
Mine is 2003 and the other machine is 2002. I am not sure if this makes any difference!

GetRows may return anywhere between 0 - 5 rows.

Please help!


UserLinks = USER_LINKS_rst.GetRows(5)

If UBound(UserLinks, 1) >= 0 Then
Link1.Caption = UserLinks(0, 0)
Link1.HyperlinkAddress = UserLinks(1, 0)
End If

If UBound(UserLinks, 1) > 0 Then
Link2.Caption = UserLinks(0, 1)
Link2.HyperlinkAddress = UserLinks(1, 1)
End If