Currentb value

[imported_philippe]

Hi,
I write this code but do not ok because dbs variable have got 'Nothing' value. I don't know why ?

My code :

Dim dbs As Database

Code_Frs = Code.Value

Set dbs = CurrentDb

dbs.Execute "INSERT INTO LFB1 (ALTKN) VALUES ('" & Code_Frs & "');"
dbs.Execute "INSERT INTO LFBK (Code) VALUES ('" & Code_Frs & "');"
'dbs.Execute "INSERT INTO LFM1 (Code) VALUES ('" & Code_Frs & "');"

dbs.Close

Could you help me ?