Problemer med NULL og lign.

Jeg læser en fil og bruger det ene felt fra filen, som en del at en query. Problemet er at feltet strModel nogle gange kan være tom, eller at den ikke findes i databasen, hvor jeg laver mit query. Den finder og indsætter records for de 2 første linier, men 3 linie findes ikke i db, og jeg får en exception occurred (NULL).

Hjælp :-)


do until objFile4.AtEndOfStream
    arrFields = Split(objFile4.ReadLine,vbTab,2)
    if Ubound(arrFields)>=1 then
        strProdID = Replace(arrFields(0),Chr(34), "")
        strModel = Replace(arrFields(1),Chr(34), "")

        sql = "SELECT products_id FROM products WHERE products_model='" & strModel & "'"
        set strRel = db.Execute(sql)
        if strRel("products_id")>0 and not isNull(strRel("products_id")) then
        relProductID = strRel("products_id")
        sql2 = "INSERT INTO icecat_product_related (product_related_id,product_id) VALUES(" & relProductID & "," & strProdID & ")"
        strRel.Movenext
        end if
        'set rsrel = db.Execute(sql2)
        objFile3.WriteLine sql2
    end if
loop