Access - activar registro desde subfomulario

Private Sub Form_Current()

    Dim rs As Object

    Set rs = Forms![forcultivos].Recordset.Clone,

    rs.FindFirst "[idcultivo] = '" & Me.idcultivo & "'"

    Me.Bookmark = rs.Bookmark

End Sub

With Me.RecordsetClone ' ya se le puede utilizar sin mencionarlo

.FindFirst "[idcultivo] = '" & Me.idcultivo & "'" ' se supone que el ID a localizar es alfanumérico

 'Hay que verificar que se le localiza y de localizarlo .. se igualan

IF Not .Nomatch Then   Me.BookMark = .BookMark

End With ' y finalizada la necesidad, se libera

Private Sub Form_Current()

    Dim rs As Recordset

    Set rs = Forms!forcultivos.RecordsetClone

    rs.FindFirst "[idcultivo] = '" & Me.idcultivo & "'"

    Forms!forcultivos.Bookmark = rs.Bookmark

End Sub

Private Sub txtbuscar_Change()

Dim sql As String

sql = "select * from cultivos where cultivo like'*" & Me.txtbuscar.Text & "*'order by cultivo"

Me.forsubcultivos2.Form.RecordSource = sql

End Sub