Can I Read Some Rows From The Middle Of Rows In DataReader?

helo..
I have 100,000 rows in the database and I want to read results for eg: from 5000 to 5050 by DataReader.
I wrote this code to do this but its too slow:



Dim SlctStr As String = "select * from topicstbl where partID like '" & PagePartID & "'"

Dim ReadCom As New SqlClient.SqlCommand

ReadCom.CommandText = SlctStr

ReadCom.Connection = MainLib.MyConnection

Dim MyReader As SqlClient.SqlDataReader = ReadCom.ExecuteReader()



Dim StartTNum As Long = 5000



For IR As Long = 0 To StartTNum - 1

MyReader.Read()

Next



Do While MyReader.Read

StartTNum += 1

If StartTNum > 5500 Then Exit Do



'''''''''''''''''''


Loop

MyReader.Close()



is there another way to do the same thing better off than this code?