is there a way to create a report based on text that i would type in a text box which would be put into a sql statement?

here is the code that i have so far

Private Sub DoLookup()
Dim DE As WreathEnviron 'DataEnvironment
Dim sSQL As String

Set DE = WreathEnviron
sSQL = "SELECT name, desc, qty, price FROM Orders WHERE name = '" & Trim(UCase(Me.txtReceipt.Text)) & "'"

DE.rsReceipt.Open sSQL
DE.rsReceipt.Requery
rptReceipt.Show
DE.rsReceipt.Close

End Sub