วิธีการนับเลขซ้ำ ขอเทคนิคหน่อยครับ ภาษา Visual Basic ครับ

 Dim lst As New List(Of Integer)
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If String.IsNullOrEmpty(TextBox1.Text) Then Return
        If lst.Contains(Integer.Parse(TextBox1.Text & "")) = False Then
            lst.Add(Integer.Parse(TextBox1.Text))
            MessageBox.Show(TextBox1.Text)
        End If
    End Sub

SELECT ROW_NUMBER() OVER (ORDER BY RowID[head]Code (SQL)