prova così... non ho controllato sintassi, ne dichiarazione di variabili.. vedi tu.
codice:
Private Sub Command2_Click()
  Dim i As Integer
  Dim Sposta As Integer
  S = 1200
  i = 1

  Call connetti

  Rs.Open "SELECT * FROM u_89", Cn

	RS.PageSize=10
	totPage=cLng(RS.PageCount)

  RS.AbsolutePage = numPage 'questo valore lo devi impostare prima.. è il numero di pagina che vuoi leggere..
  'non deve essere maggiore del totale delle pagine..

   For idxpage = 1 To RS.PageSize		

      Load Me.Text1(i)
      With Me.Text1(i)
        .Left = 3000
        .Top = i * Me.Text1(i - 1).Height
        .Visible = True
      End With

      If Rs.State <> 0 Then 'se non si sono verificati errori
        If Not (Rs.EOF And Rs.BOF) Then 'se il recordset non è vuoto
            Me.Text1(i).Text = Rs("CodForn")
        End If
      Else
        MsgBox "Errore durante l'apertura della tabella", vbCritical
        exit for
      End If
      i = i + 1
	   
           RS.MoveNext
	   If RS.EOF Then Exit For    
   next

  Cn.Close
  Set Cn = Nothing
End Sub
Io ti ho messo il codice che dovresti usare...ma logicamente non è corretto mettere tutto in quella maniera dentro un evento click!! devi rivedere il codice e ottimizzarlo con richiamo di sub a parte...