主题：老师，这段代码要怎么改？openqq生成不重复代码

Dim dt As DataTable
Dim cmd As New SQL
cmd.Connec = "数据源名称"
cmd.C = "Se|ect Year(日期) As 年, Month(日期) As 月, Max(编号) as 编号 From {订单} Group By Year(日期), Month(日期)"
dt = cmd.ExecuteReader
flbhs.Clear()
For Each dr As DataRow In dt.DataRows
    Dim qz As String = dr("年") & Format(dr("月"),"00") '编号前缀,4位年,2位月
    Dim bh As String = dr("编号")
    Dim id As Integer
    If bh.Length = 10 Then
        bh = bh.SubString(7)
        If Integer.TryParse(bh,id) Then
            flbhs.Add(qz, id)
        End If
    End If
Next

我需要的是两位年和按天生成。比如2301031这样，老师能帮忙改下吗？谢谢！