potresti indicarmi come integrare in questo codice pagine da 10 record.





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

Do While Not Rs.EOF

 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
    End If
    i = i + 1
    S = S + 10
    

Loop

Cn.Close
Set Cn = Nothing


End Sub