[Resolvido]Combinações de Teclas CTRL+ENTER, ao invés de Executar a Chamada Ele quebra linha no campo

Boa tarde Srs.

Estou com um probleminha meu chato, tenho um botão "Procurar" que preciso chama-lô ao fazer a combinação das teclas CTRL+ENTER.

o problema é que quando uso CTRL+ENTER o access quebra linha no campo de pesquisa não vinculado.

o que posso fazer pra resolver este problema?

Estou com keypreview ativo
Me.KeyPreview = True


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

' CTRL+ENTER = chamar btn_procurar
If Shift = 2 And KeyCode = vbKeyReturn Then
On Error Resume Next
Call btn_procurar_Click
End If

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

' CTRL+ENTER = chamar btn_procurar
If Shift = 2 And KeyCode = vbKeyReturn Then
On Error Resume Next
KeyCode = 0
Call btn_procurar_Click
End If

End Sub

Boa noite mestre!

Obrigado por me ajudar a resolver ^^

realmente não tinha percebido nos outros Select Case, tenho esse KeyCode = 0 para anular os usos de algumas teclas por exemplo a F1 do Access.

Resolvido!

' DELETE
Select Case KeyCode
Case vbKeyDelete
KeyCode = 0
End Select
' ESCAPE
Select Case KeyCode
Case vbKeyEscape
KeyCode = 0
End Select