为何查询时总是说“至少一个参数没有被指定”？？？？？？

[vbcrack]

查询的源代码为：

Private Sub Command3_Click()
conn.CursorLocation = adUseClient
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xldx.mdb;"

'nPageSize = Text2.Text
'建立Recordset对象
Set RS = New ADODB.Recordset
strSql = "select * from xldx材料 where 电算代号 like " & Text2.Text & " order by 电算代号" '以电算代号为序排列
RS.Open strSql, conn, adOpenStatic, adLockOptimistic
', 1 '因为要分页显示，所以用键盘指针
End Sub

[junki]

Dim str1 As String
Like 'str1' '需要单引号

str1为数值类型时，不需要单引号

[tztz520]

'要加上引号,如下面

strSql = "select * from xldx材料 where 电算代号 like '" & Text2.Text & "' order by 电算代号" '以电算代号为序排列