OK NVM i find the solution
I create and Object X
Dim x As Integer
then i make that
x = db.OpenRecordset("SELECT @@Identity")(0)
I just forgot you can use that Qury then i pass the X to
rs!LID = x
rs2!LID = x
and vualaaaa all working fine my ID from new row in tblLeave is passed to LID field in tblLeaveDate
and i have my relation :)