codice:
    for x = 1 To NumRighe
        If InserisciRigaInSqlServer(...) = True Then
            pBar1.PerformStep()
        End If
    Next x