Как бы я отобразил полную серию записей (1-1500)

Question

Я использую базовый с sqlite и храню 1500 записей в БД. У БД есть две таблицы, одна для вопросов и одна для ответов. И вопросы, и ответы имеют идентификатор строки и, поэтому я выбираю вопросы и соответствующие ответы. У меня этот код работает.

С помощью,

For i = 0 To Cursor1.RowCount -1

это единственный способ, которым я знаю, как это сделать, однако это означает, что при каждом нажатии на кнопку проходит 1500 записей, это проявляется на моем телефоне как небольшая задержка. Какой способ лучше?

Dim accept As String
Dim j as integer = 1


Cursor1 = SQL1.ExecQuery("SELECT accepted_id, question, FROM questions LIMIT 0,'" & j & "'")    

For i = 0 To Cursor1.RowCount -1
    Cursor1.Position = i
Label1.Text = Cursor1.GetString("question")
accept = Cursor1.GetString("accepted_id")
Next
j = j + 1

Затем код продолжается, чтобы выбрать соответствующие ответы, чтобы не совпадать с ответами из таблицы.