Ho un problemino.Non riesco a passare alla query un valore inserito in input.

eseguo in questo modo:

codice:
Private Sub mnuricerca_Click()
Dim ris As String
Dim msg As String
Dim b As String
ris = InputBox("Secondo quale lettera vuoi raggruppare i campi?")

Set db = OpenDatabase("cd.mdb")
Set rscd = db.OpenRecordset("SELECT * FROM TCd WHERE TCd.Autore LIKE '[ris]*' ORDER BY Autore")

With rscd
If .BOF = True Then
    msg = MsgBox("Non ci sono record correnti che iniziano con quella lettera!", vbExclamation)
    Else
    cboseltitolo2.Clear
    riempicombo
    End If
    .Close
End With
db.Close

End Sub
All'interno della combobox mette sempre gli stessi risultati.In pratica ciò ke metto in ris la query lo ignora praticamente..Magari è sbagliata la sintassi?