Nu har jag:
strSQL1 = "SELECT F_RF_ID FROM T_FB WHERE F_FB_ID = "&intFbID&""
Set ObjRS1 = ObjConn.execute(strSQL1)
intRfID = ObjRS1("F_RF_ID")
ObjRS1.close
Set ObjRS1 = Nothing
'## SQL-sats som lägger in ny post i db
strSQL2 = "INSERT INTO T_FORENING(F_USER_ID, F_RF_ID, F_FB_ID, F_FOR_NUMMER, F_FOR_NAMN, F_FOR_IDROTT, F_FOR_KANSLIST, F_FOR_ADDRESS, F_FOR_POSTNR, F_FOR_ORT, " &_
"F_FOR_EPOST1, F_FOR_EPOST2, F_FOR_TELE1, F_FOR_TELE2, F_FOR_FAX, F_FOR_PGIRO, F_FOR_BGIRO, F_FOR_CLNR, F_FOR_KONTONR, F_FOR_ORGNR, F_FOR_NOT)" &_
"VALUES("&Session("MMID")&", "&intRfID&", "&intFbID&", "&intNummer&", '"&strNamn&"', '"&strIdrott&"', '"&strKanslist&"', '"&strAddress&"'," &_
"'"&strPostnr&"', '"&strOrt&"', '"&strEpost1&"', '"&strEpost2&"', '"&strTele1&"', '"&strTele2&"', '"&strFax&"'," &_
"'"&strPgiro&"', '"&strBgiro&"', '"&strClnr&"', '"&strKontonr&"', '"&strOrgnr&"', '"&strNotering&"')"
men jag har för mig att man kan göra en select i insertsatsen, eller är jag ute och cyklar nu :q
------------------
Korvfarbror som tycker om kyckling