Dim ID As Long
    ID = Me.FMTempMessage.Form.UserID
    Me.FMTempMessage.Form.Requery

    Dim rs As Recordset
    Set rs = Me.FMTempMessage.Form.Recordset
    rs.MoveFirst
    rs.FindFirst "UserID = " & ID
    If Not rs.NoMatch Then
        Me.FMTempMessage.Form.Bookmark = rs.Bookmark
    End If

    Set rs = Nothing