vb.net - 生成 ID の日付が最新ではありません

Question

日付に基づいて一意の ID を生成するために、このコードを作成しました。問題は、日付が最新ではなかったことです。こんなIDが欲しい

2013081901 - if user input data on 19/08/2013 
2013082002 - if user input data on 20/08/2013

問題は、私はこのようなIDを取得したことです

2013081901 - user input data on 19/08/2013 
2013081902 - user input data on 20/08/2013

これは私のコードです:

 Dim cnnOLEDB As New OleDbConnection(strConnectionString)

    sql = "SELECT MAX(sampleID) FROM Spec_1"
    cmd = New OleDbCommand(sql, cnnOLEDB)
    cnnOLEDB.Open()
    Dim dr As OleDbDataReader
    dr = cmd.ExecuteReader()
    While dr.Read()
        Try
            If Not IsDBNull(dr(0)) Then
                txtSampleID.Text = (dr(0) + 1).ToString
                'txtSampleID.Text = dr(0).ToString
            Else

                txtSampleID.Text = Format(Date.Today, "yyMMdd") + "01"


            End If
        Catch ex As Exception
            txtSampleID.Text = "0"

        End Try
    End While