[Resolvido]Buscar informações em subformulário

Mais uma vez venho recorrer aos especialistas desse site. Vejamos

No formulário cadastro de veículos tenho um grupo de opções que habilitam subformulários ( Abastecimento, Revisão, Pneu, etc). Quando vou efetuar um novo registro para abastecimento, gostaria que a última km cadastrada ficasse disponível, quando selecionasse o veículo na caixa de combinação, (mais de um veículo) para não haver inserção de dados incorretos, para isso inseri um outro subformulário baseado em uma consulta para buscar tais informações, mas quando seleciono o veículo para registrar novo abastecimento não busca tais informações. Reiterando, quando for adicionar novo registro e selecionar o veículo na caixa de combinação, a informação apareça no subformulário inserido no subformulário abastecimento.
Coloquei um código após atualizar mais não adiantou, já vinculei campos mestre e filho, por CodDesp ou KmInicial, Km.

Private Sub Form_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[KmInicial] = '" & Me![ConsAbKm] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Me.Requery

End Sub

Também já tentei da maneira que JPaulo fez através de botão com cód DoCmd.ShowAllRecords , mais aí pega a informação do primeiro registro efetuado e não do último, ou seja, ele sai do cadastro que estou a fazer e volta para o primeiro cadastro realizado. Preciso que, ao selecionar veículo no novo registro apareça a informação ou no campo km anterior atualize para km atual do veículo em questão.

Consegui resolver baseado no exemplo que encontrei aqui no site (KmII), pra quem estiver com problema é só adequar.

Mudei a caixa de combinação para o subformulário abastecimento, no campo origem da linha fiz o select de onde está a informação do veículo e na fonte de registro onde será armazenado a informação após o cadastro. No evento após atualizar da caixa de combinação onde tem a informação veículo coloquei:

Private Sub Combinação85_AfterUpdate()
Me.KmInicial.Value = DMax("[Km]", "AbastVeic", "[Veículo]= '" & Me.Veículo & "'")
Me.KmInicial.Requery
End Sub

E no campo Km Inicial (anterior) deixei bloqueado, quando vou inserir novo registro, ao selecionar o veículo já aparece a última km abastecida.