http://www.foxtable.com/help/topics/0696.htm
Dim ld As integerDim cmd As New SQLCommandcmd.CommandText = "Select Max(数量) From {订单} Where 产品 = 'PD01'"ld = cmd.ExecuteScalar()