select max(字段名) from 表名
字段名和表名替换成你自己的就OK
Set mConn = New ADODB.Connection
Set mrs = New ADODB.Recordset
mConn.Open "Provider=sqloledb;Password=dili1server@;Persist Security INfo = True;" _
& "User ID = sa;Initial Catalog = bqerp;Data Source =192.168.20.1;Connect Timeout=30"
sCmd = " select top 1 某字段名 from 某表名 order by 某字段名 desc"
Call openmrs
If mrs.EOF = false Then
结果变量=mrs(0)
end if