这个在查询分析器中执行正确的语句，它的SQL查询语句在VB中如何写？
DECLARE @max intselect @max=max(入库单号) from 入库
print @max --------------------编程问答--------------------
--------------------编程问答-------------------- 噢，把代码中的“数据库连接对象”改为“Conn”
'事先声明：程序要先引用[Microsoft ActiveX Data Objects 2.x Library]对象
Dim Conn As Connection
Dim lngMax As Long
Set Conn = New Connection
Conn.Open "这里写上数据库的连接字符串"
lngMax = 数据库连接对象.Execute("SELECT MAX(入库单号) FROM [入库]")(0)
Debug.Print lngMax
补充：VB , 基础类
