主题：[求助] 代码功能添加

Dim zg As New List(Of String) '最高 Dim dy1 As Date = New Date(d.Year,d.Month,1) '当月第一天 Dim sy As Integer = Date.DaysInMonth(d.Year,d.Month) '月天数 Dim LastDay As Date = New Date(d.Year,d.Month,sy)'最后一天 Dim maxmid as Double Do While dy1 <= LastDay     cmd1.CommandText ="Select Max(数值) Fro m {实时数据} Where 编号 = '" & bh & "' And 抄表时间 >= convert(varchar(10),'" & dy1 & "',120) And 抄表时间 < convert(varchar(10),dateadd(d,1,'" & dy1 & "'),120)"     zg.Add("'" & cmd1.ExecuteScalar & "'")    Loop 以上实现的是读取每天的“数值”最大值； 现在我想把这个月的最大值（也就是从每天采集到的数值最大值里 提取出最大的那个值！）提取出来 赋值到maxmid，然后在标签“lable9”显示出来，怎么添加代码，我添加了怎么也不行，请给予指导！谢谢

cmd1.CommandText ="Select Max(数值) From {实时数据} Where 编号 = '" & bh & "' And 抄表时间 >= '" & dy1 & "' And 抄表时间 < '" & dy1.addmonths(1) & "'"