Navegando em registros utilizando RecordSet através da Combo usando o teclado

Bem amigos.. aqui uma maneira que encontrei para navegar em registros usando formulário desvinculado..

Depois de expandida a Combo com as teclas do teclado Seta acima e Abaixo... se popula as combos de acordo com a linha selecionada....

Option Compare Database 'No módulo do Form
Dim Selecionado



Private Sub CboVisitante_Change() 'Ao alterar da Combo
Selecionado = True
cmdCapturar_Click 'Função para a linha ativa selecionada na Combo
End Sub


Private Sub cmdCapturar_Click() 'Função Capturar
On Error Resume Next
Dim Linha As Integer
Linha = Me.CboVisitante.ListIndex
If Selecionado = True Then
Me.txtID.Value = Me.CboDetento.Column(0)
ConsultaVisitante 'Aqui voce aplica a instrução via RecordSet que popula as caixas texto no form
End If
End Sub



Pronto agora á so abrir a combo e com o teclado navegar no recordSet


Saudações