Ms Access VBA-使用带有文本框值的Like

只是在vba中使用Like运算符和strSQL进行ms访问时遇到了一些问题。目前，我有一个表单，在填写文本框时，将使用文本框的值重新查询列表框行源。除我尝试此strSQL查询外，这些查询中的大多数都可以正常工作：

SelectedContract = Me.List4.Column(0)
StreetInitial = Text6 + "*"
Dim ConId As Integer
ConId = DLookup("[id]", "[Portal Contract]", "[contract_no] = """ & SelectedContract & """")


Dim selectParas As String
selectParas = "SELECT a.street, a.mh1, a.mh2, a.diameter, a.thickness, a.parameters_id, a.installation_date " & _
              " FROM [Portal Sample] As a WHERE a.contract_id = " & ConId & " And a.street Like '*" & StreetInitial & "*';"

Me.List9.RowSource = selectParas
Me.List9.Requery

---

Text6提示用户输入街道首字母，我正在尝试搜索所有以该首字母开头的条目。我尝试在字符串中添加*以查看SELECTPARTS语句中的Like是否会将其视为特殊字符，并仅搜索以text6开头并包含以下任何字符的条目，但它似乎不起作用，并返回所有仅包含text6中字符的条目。

您只需要在末尾添加*即可：Like'“&StreetInitial&“*”；“哇，万分感谢！很明显，我写这篇文章的时候根本没注意！