tabeller i db

Jeg har følgende problemstilling.

Jeg har oprettet en kunde i en tabel. Når han så har valgt betalingsform osv så bliver ordren oprette i en \"ordre\" tabel som har to attributter \"kundeNr, ordreNr\" kundeNr har jeg fra \"kunde\" tabellen og ordreNR er et autofelt. Når dette er oprette så bliver de valgte vare oprette i en \"ordrelinie\" tabel. Og det er her problemet opstår for i denne tabel har jeg brug for at kende \"ordreNr\" attributten fra ordre tabellen, men hvordan får jeg nemmest fat i den og vel og mærket den rigtigt???

Her er koden til at oprette selve ordren med

\'***** opret en ny ordre *****
SQL2 = \"INSERT INTO ordre (kundenr) VALUES(\'\"&kundeNr&\"\')\"
Con.Execute(SQL2)

ordreNr

\'***** opret ordrelinier til ordren *****
dim antal, kurv, pris, vareNr, count, key, i

set kurv = Session(\"kurv\")
antal = Session(\"kurv\").count
key =    kurv.keys


    for i = 0 to kurv.Count -1   
        vareNr = key(i)
        count = kurv.item(key(i))

        SQL3 = \"SELECT titel, pris FROM butik WHERE nr =\" &vareNr
        Set RS = Con.Execute(SQL3)
        IF NOT RS.EOF THEN

            SQL4 = \"INSERT INTO ordrelinier (ordreNr ,vareNr ,tital ,antal ,pris) VALUES(\'\"&ordreNr&\"\',\'\"&vareNr&\"\',\'\"&RS(\"titel\")&\"\',\'\"&count&\"\',\'\"&RS(\"pris\")&\"\')\"
            Con.Execute(SQL4)

        END IF
    next