Datagridview et tabpage en vb

Bonjour,
voila, je dois afficher des données dans un datagridview, mais le problème c'est que je dois afficher que 15 lignes dans la datagridview par tabpage. J'utilise une BDD pour stocker les données.

J'ai essayer de mettre un compteur mais ça ne marche pas. je ne trouve pas d'autre méthode.

 Private Sub actualiselec()
        If (Xa = 0) Then
            If (comp < 14) Then
                Ya = comp - 1
            Else
                Ya += 14
            End If
        Else
            comp = comp - 15
            If (comp > Ya) Then
                Ya += 14
            Else
                Ya = Ya + comp
            End If
        End If
    End Sub

Merci d'avance !!