If NadjiVrijednost("tblCijenaKostanja", "ID", IDProizvoda) = False Then

           With Sl_Zavrsna
                .AddNew
            ![ID] = ID
            ![Materijal] = CKmat
            ![TI] = VTI
            ![TPZ] = VTPZ
                .Update
           End With
 Else
 MsgBox "Ve
 postoji"
 End If