Sub CboMoveTo_AfterUpdate ()
    Dim rs As DAO.Recordset

If Not IsNull(Me.cboMoveTo) Then
        Set rs = Me.RecordsetClone
        rs.FindFirst "[ImePolja] = " & Me.ImeComba
        If rs.NoMatch Then
            MsgBox "Nema podataka"
        Else
            Me.Bookmark = rs.Bookmark
        End If
        Set rs = Nothing
End If
End Sub