Access wprowadzanie danych do tabeli poprzez formularz z InputBox-em

Dzień dobry,
Chciałabym prosić o pomoc.
Mam prostą bazę Access. Mam 2 tabele powiązane relacją 1 do wielu. (połączone przez IdDaneIdentyfikacyjne)
chciałabym wprowadzać dane poprzez formularz z podformularzem.
Mam taki kod:
LCntr = 1
Do Until LCntr > 5
wys = InputBox("Podaj wysokosc stosu", "Wysokosc stosu", , 3000, 800)

LSQL = "insert into tblPomiary (IdDaneIdentyfikacyjne, Faza, Nrpomiaru, WartoscPomiaru)"
LSQL = LSQL & " values ("
LSQL = LSQL & "'" & IdDaneIdentyfikacyjne & "','" & " U " & "','" & LCntr & "','" & wys & "')"

db.Execute LSQL

LCntr = LCntr + 1
Loop

Ale dane w tabeli tblPomiary się nie zapisują.

Czy ktoś mógłby mi pomóc?

Z góry dziękuję

Pozdrawiam,
Inga