strSql = "select * from 商品信息 where"
strSql = strSql & " [货号]='" & Me.货号列表 & "'"
文本类型必須"'"

Me![货号列表]改为 Me.货号列表.text 试试
控件名要改用英文，中文不习惯

Me![货号列表]改为 Me.货号列表

这样就不需要焦点了

1. [货号]可能是字符型字段
2. Me![货号列表] 的值为 空

Private Sub 确定_Click()
Dim sql As String
Dim rst As ADODB.Recordset
Dim number As Integer
sql = "select * from 商品信息 where"
sql = sql & " [货号]=" & Me![货号列表]

msgbox sql

Set rst = New ADODB.Recordset

rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open sql
…………………

Ctrl+G可以调出立即窗口。在立即窗口敲下面然后回车：

sql

然后把回车之后出现的文字拷到这里来给大家晒晒:)

改成这样试试：

　　VB code

　　Dim strSql As String '最好不要用保留字做变量名' strSql = "select * from 商品信息 where" strSql = strSql & " [货号]='" & Me.货号列表 & "'" '如果你确定[货号]字段是文本类型的话，应该前后加单引号' 'Me.货号列表 表示的是你的窗体里名为“货号列表”的控件的当前值' '而Me![货号列表]有可能会引用到你的窗体的绑定字段'