Private Sub Search_Product_Change()
d = Application.Match(Me.Search_Product, [DB_Products], 0)
Me.Search_Country.Clear
For i = d To d + Application.CountIf([DB_Products], Me.Search_Product) - 1
Me.Search_Country.AddItem Range("[DB_Country]")(i)
Next i
End Sub