Access VBA女士 - 使用Like与文本框值

Question

在vba中使用带有strSQL的Like运算符进行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提示用户输入街道初始值，我正在尝试搜索以该首字母开头的所有条目。我尝试将*附加到字符串，以查看selectParas语句中的Like是否将其视为特殊字符，并且仅搜索以text6开头的条目以及任何后续字符，但它似乎不起作用，并返回所有条目只包含Text6中的字符。