求助，怎么删除数据库（access）里在的一行？

下面的代码提示：“实时错误 3011”，Microsoft jet数据库引擎找不到对象'select * from 商品清单 where 商品编号='3'。请确定对象是否存在，并正确地写出它的名称和路径。

Dim str As String
MSFlexGrid1.Col = 0
str = MSFlexGrid1.Text
Data1.RecordSource = "select * from 商品清单 where 商品编号='" & str & "'"
Data1.Refresh

请问怎么解决呀。谢谢！！ --------------------编程问答-------------------- 你的商品编号是什么型？ --------------------编程问答-------------------- 发来我看一下啊。正无聊呢。 --------------------编程问答-------------------- 这晨的朋友真热情呵！谢谢你们！
商品编号是integer型的 --------------------编程问答-------------------- "select * from 商品清单 where 商品编号=" & str & "" --------------------编程问答-------------------- 还是不行 ：（ --------------------编程问答-------------------- 还有，我要的是删除，是不是要写成
Data1.RecordSource = "delete * from 商品清单 where 商品编号=" & str & "" 
可还是不行。。。

补充：VB ,  基础类