VBA select Max from Database

strRange = "SELECT MAX([ProgramID]) FROM dbo_tblCoveredBonds;"
    rst.Open strRange, _
             cnn, adOpenStatic
    rst.MoveFirst
    TotalProgram = rst.Fields(0).Value