主题：网络环境下的编号的问题

Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Selec-t 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

问题：上面的代码，放服务端的AfterOpenProjet事件中编写代码，有100多张，在这里写，是不是影响服务器，开机速度和性能？