Private Sub cmdPrikazi1_Click()
    Dim RS As Object, strFilter As String

      strFilter = "[rednibrojkorisnika] = " & Me.txtRedniBrojKorisnika

    Set RS = Forms!frmUnosOsnovnihPodatakaOKorisniku.Recordset.Clone
    RS.FindFirst strFilter
           If Not RS.EOF Then Forms!frmUnosOsnovnihPodatakaOKorisniku.Bookmark = RS.Bookmark
    Set RS = Nothing

DoCmd.Close acForm, Me.Name

End Sub