Using MSQuery, and type in/change your SQL in the option VIEW-SQL. For
parameter placseholder type in "?" (questionmark).

Refresh this query and type in your parameter. Now exit to Excel and
refresh again and when the parameter prompt comes select a cell adn
enter a value in the cell.

Now you've created aparameterized query in excel

Using VBA
AS400ID = Sheets("Colors").Range("A1").value