求助: 运行错误

nw168

编写程序如下:
Dim sql As String
Dim rst As ADODB.Recordset
Dim number As Integer
sql = "Select * from 商品 where"
sql = sql & "[商品编号] = " & Me![商品编号]
Set rst = New ADODB.Recordset
rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open sql

运行后总是出现如下错误:
运行时错误'-2147217900(80040e14)'
语法错误(操作符丢失)在查询表达式'[商品编号]' = XXX'中

请教各位大虾, 问题可能在哪里? 非常感谢!

andymark

try:

商品编号是数字类型

sql = "Select * from 商品 where 商品编号 = " & Me.商品编号 & ""


商品编号是文本类型

sql = "Select * from 商品 where 商品编号 = '" & Me.商品编号 & "'"

nw168

非常感谢!