求救

haidongeogi

请教高手，下列代码，如何才能实现xuhao2.value=序号这个字段的查询出来的最大值
Private Sub tj_Click()
Dim rst As Recordset
Set ddd = CurrentDb()
Dim sqlstr As String
Execute = "select max(序号) from 大车队"
xuhao2.Value=[序号]
End Sub

marco

DAO用法：

    Dim dbsNorthwind As DAO.Database
    Dim rs As DAO.Recordset
    Dim sSQL As String
     sSQL = "select max(序号) from 大车队"
   
    Set dbsNorthwind = CurrentDb
    Set rs = dbsNorthwind.OpenRecordset(sSQL, dbOpenDynaset)
    xuhao2.Value=rs.Fields(0).Value
    rs.Close
    Set rs = Nothing
    Set dbsNorthwind = Nothing