find højeste id og smid det over i iOrderid og brug det igen

Hej

Jeg har flg. kode som bliver kørt når jeg trykker på en knap i min formular:

If (iValgt = 2) Then
    DoCmd.SetWarnings False
    sqlstr = "INSERT INTO ordreinfo ( ordrenavn, opgavenavn ) SELECT '" & sOrdre & "', '" & sValg & "';"
    DoCmd.RunSQL sqlstr
???????????????????
    For Each Itm_1 In ctl_1.ItemsSelected
        Criteria_1 = Chr(34) & ctl_1.ItemData(Itm_1) & Chr(34)
        sqlstr = "INSERT INTO ordreoplysninger ( ordrenavn, postnr, antal, ordreid ) SELECT DISTINCTROW '" & sOrdre & "', import.[Post-nr], import.[" & sValg & "], " & iOrdreid & " FROM import WHERE (import.[post-nr]=" & Criteria_1 & ") And (import.[" & sValg & "] > 0);"
        DoCmd.RunSQL sqlstr
    Next Itm_1
    DoCmd.SetWarnings True
End If

Det eneste jeg mangler er en værdi i iOrdreid, det er en værdi som først kommer når den første INSERT INTO.
Det skal derfor findes frem.

Hvordan gøres det? (Det vil altid være det højeste id i tabellen ordreinfo)

/dsjk