Problema Dropdown combobox

Hola a todos, buenas noches, solicito de su amable ayuda para poder
resolver mi problemita, tengo un combobox el cual conforme escribe el
usuario se van filtrando los resultados, tengo la propiedad dropdown
en el combobox para que se vayan viendo los registro que tiene y puda
seleccionar el valor,, todo me funciona bien, lo que me falta
solucionar es que cuando presionan enter o hacen click en algun valor
se quite el dropdown y salte al siguiente campo.

A continuacion pongo el codigo que tengo, ojala me pudieran ayudar, de
antemano muchas gracias, reciban un cordial saludo!

Private Sub cmbProveedor_Change()
Dim strSQL, miProv As String

strSQL = "SELECT DISTINCT qry_Proveedores.[IdProveedor],
qry_Proveedores.[RAZON SOCIAL], qry_Proveedores.[DirProv] FROM
qry_Proveedores"

'strSQL = strSQL & " WHERE qry_Proveedores.[RAZON SOCIAL]" & " LIKE
'" & Me.cmbMarca.Text & "*'"
strSQL = strSQL & " WHERE qry_Proveedores.[RAZON SOCIAL]" & " LIKE '"
& Me.cmbProveedor.Column(1) & "*'"
strSQL = strSQL & " AND qry_Proveedores.[Zona] = '" & Me.txtZonaCd &
"' ORDER BY qry_Proveedores.[RAZON SOCIAL] ASC"

Me.cmbProveedor.RowSource = strSQL
Me.cmbProveedor.Dropdown

End Sub