Passing parameters from VB6 to SQL

Dim intVal as Integer
intval = 2020
qconn.Execute(“Select * from Table1 where userid=intval”)

The question is how can I make sql recognize or accept intval as a predefined variable in VB6 and run the query with resultset based on the value of intval?