Tjek af lagerstatus

Hej, jeg skal give kunden besked om leveringstid. Derfor skal der tjekkes om mindst én af de købte varer er i restordre(lager = 2). Hvis alle varer er hjemme er det intet problem, så er lager 1 i alle tilfælde. Men med denne kode bliver lager vel også 1, med mindre det er den sidste vare der er lager = 2 (?):

if RS2("Lager") = 1 then
                                        Lager = 1
                                        else
                                        Lager = 2
                                    end if
                                    RS2.MoveNext
                                Loop
                                RS2.Close

Det skal vel være noget i retning af: Hvis lager på et el. andet tidspunkt er 2, så er lager 2 for hele ordren, ellers lager = 1. Meeeen hvordan skriver man lige det 'rigtigt'?

Mvh. Mec