Visual Basic - operador like

bueno tengo una seleccion y necesito cuando voy a escribir una palabra osea p me aparezca el nombre del proveedor que comienze con la letra ingresada en un combo

me gustaria seber cual podria ser el evento que desncadenara dicha operacion de busqueda y cual podria ser la seleccion

Private Sub Combo1_KeyPress(KeyAscii As Integer)
rs_a.Open "SELECT DISTINCT proveedor.mon_pro FROM proveedor where mon_pro like 'combo1%'", Conex, adOpenDynamic, adLockOptimistic, adCmdText
If Not rs_a.EOF Then
rs_a.MoveFirst
Do While Not rs_a.EOF
Combo1.text = rs_a!mon_pro
rs_a.MoveNext
Loop
rs_a.Close
End If
Combo1.SetFocus
End Sub

con eso no me aparece nada por fa ayuda

Primera vez que veo concatenar una variable así, no sé si estará bien hecho o mal hecho pero ahí te va una posible solución:

Dim sql As String
sql = "SELECT DISTINCT proveedor.mon_pro FROM proveedor where mon_pro like '" & combo1.Text & "%'"
rs_a.Open sql, Conex, adOpenDynamic, adLockOptimistic, adCmdText

Espero que tengas suerte