Use o KeyDown do objeto que vc quer dá enter.

 

fica mais ou menos assim:

 

Private Sub Objeto_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case 13 'KeyCode da tecla enter
        'aqui vc chama sua rotina

End Select
End Sub

Pessoal obrigado novamente

Olha eu de novo, Bom agora para selecionar duas linhas ou mais ? e atualizar o Bco de dados ?

Como poderia faze-lo, tenho algumas ideias mas vou gerar um codigo imenso.