[Resolvido]Propriedade Visivel

Criei uma caixa de listagem nos eventos Atual e Após Atualizar esta caixa de listagem.
Private Sub Combinação18_AfterUpdate()
' Encontrar o registro que coincide com o controle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CodLote] = " & Str(Nz(Me![Combinação18], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

1 - Ao selecionar um código nesta caixa ela encontra o registro certinho, eu gostaria de exibir os campos do formulario e do sub formulário só após a seleção. Tem jeito ?
2 - Sei que se eu colocar todos os campos Visible=False eles ficam invisiveis, gostaria de saber se há uma maneira em torna-los visiveis após a seleção, inclusive o subformulario, e como e onde inserir o código aproveitando o código para localizar ?

Abraços

Set rs = Me.Recordset.Clone
rs.FindFirst "[CodLote] = " & Str(Nz(Me![Combinação18], 0))
>>>>Aqui

If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Resolvido Piloto
Abraços e obrigado pela Resposta.

O Fórum agradece o retorno.