værdi ikke på liste

Sørg for at egenskaben "Begræns til liste" er sat til Nej

Comboboksens Rækkekilde sættes til en SQL streng med 2 kolonnner: fødevare, kalorimængde
"Select Fødevare, Kaloriemængde fra Fødevaretabel"

På comboboksens EfterOpdatering-hændelse lægges denne kode:
Dim Cal as variant
If isnull(Me!cboFødevare.column(1)) then
    If msgbox("Du har indtastet en fødevare, som ikke findes i tabellen. Ønsker du at oprette fødevaren til brug fremover?",vbquestion+vbyesno, "Opret fødevare?") = vbyes then
        cal = inputbox("Angiv kaloriemængde")
        if cal <> "" then
            docmd.setwarnings false
            docmd.RunSQL "Insert Into Fødevaretabel ( Fødevare, Kalorimængde) Select '" & ME!cboFødevare & "', " & val(Cal)
            docmd.setwarnings true
            Me!cboFødevare.requery
        else
            exit sub
        endif
else
    Cal = Me!cboFødevare.column(1)
endif
Me!kaloriemængde = Cal

PS: Husk at ændre alle navne, så de passer til de respektive felter i tabel og på formular!
PPS: Jeg har kun skrevet koden direkte her. Så der kan opstå mindre fejl/mangler!

Tak
jeg har to felter der skal med (både cal og en for portionsstørrelsen.
Hvordan skal denne sætning justeres:

    docmd.RunSQL "Insert Into Fødevaretabel ( Fødevare, Kalorimængde) Select '" & ME!cboFødevare & "', " & val(Cal)

jeg kan ikke få det til at virke. Når jeg forlader feltet med combo'en forsvinder det jeg har valgt?

Nå nu er den der. Tak for hjælpen.