Private Sub lstStanje_DblClick(Cancel As Integer)
DoCmd.RunSQL "INSERT INTO tblStavke(BrD,NSN)" & _
             "SELECT '" & Me.BrD & "','" & Me.lststanje.Column(1) & "'"
DoCmd.Requery
End Sub