Pasar parámetros a una consulta

Estimado Experto:
Tengo hecha una consulta en Access y la utilizo a través de un ado datacontrol en Visual Basic 6 (ojo... No la reescribo como sentencia SQL), quisiera pasarle un parámetro a dicha consulta pero no me doy cuenta como hacerlo.
Private Sub Form_Load()
    Dim strBaseDatos As String
    Dim intFila As Integer
    Dim intColumna As Integer
    strBaseDatos = App.Path + "\Práctico 06.mdb"
    With Me.adoConsulta -----> adoDataControl
        .ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & strBaseDatos & ";"
        ' Indicarle de que tabla vamos a leer los datos
        .CommandType = adCmdStoredProc
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .RecordSource = "KilosDeProductosPorAño" ---> consulta diseñada y almacenada en Access que tiene que recibir un parámetro como el nombre del vendedor
    End With
    Set hfgListado.DataSource = adoConsulta
    With hfgListado
        .FixedCols = 1
        .ColWidth(0) = 2000
        '.BackColorFixed = vbWhite
        For intFila = 0 To .Rows - 1
            .Col = 0
            .Row = intFila
            .CellFontName = "Times New Roman"
            .CellFontSize = 10
            .CellFontBold = True
        Next intFila
        For intColumna = 0 To .Cols - 1
            .Col = intColumna
            .Row = 0
            .CellFontName = "Times New Roman"
            .CellFontSize = 10
            .CellFontBold = True
        Next intColumna
        For intColumna = 1 To .Cols - 1
            .ColWidth(intColumna) = 1000
        Next intColumna
    End With
End Sub