
Private Sub Command1_Click()
Dim rs As Object
DoCmd.OpenForm "Compound Form"
Set rs = Forms![Compound Form].Recordset.Clone
rs.FindFirst "[CompoundID] = " & Str(Nz(Me![CompoundName], 0))
If Not rs.EOF Then Forms![Compound Form].Bookmark = rs.Bookmark
End Sub