主题：SQL外部数据源实现自动编码

取最大值，不需要这大费周章，你看看：

ExecuteScalar

用于执行返回单个值的命令，例如：

Dim ld As Date
Dim cmd As New SQLCommand
cmd.CommandText = "Select Max(日期) From {订单} Where 产品 = 'PD01'"
ld = cmd.ExecuteScalar()