Private Sub lstStanje_DblClick(Cancel As Integer)
Dim strCriteria As String
Dim rstUslov As Recordset
strCriteria = "NSN = '" & Me.lststanje.Column(1) & "'"
Set rstCriteria = Me.tblStavke.Form.RecordsetClone
DoCmd.RunSQL "INSERT INTO tblStavke(BrD,NSN)" & _
             "SELECT '" & Me.BrD & "','" & Me.lststanje.Column(1) & "'"
Me.tblStavke.Requery
Me.tblStavke.SetFocus
rstCriteria.FindFirst strCriteria
Me.tblStavke.Form.Bookmark = rstCriteria.Bookmark
Me.tblStavke.Form!Klc.SetFocus
End Sub