杉杉服饰电话:关于VB中的SQL的一个小问题

为什么总告诉我FROM语法错误~
代码如下:

Private Sub Command1_Click()
Text2.Text = ""
Text3.Text = ""
On Error GoTo myerr
If Trim(Text1.Text) = "" Then
If MsgBox("请输入查询条件！", vbInformation, "提示") Then GoTo myerr
End If

Adodc1.RecordSource = "select * from 进货记录 where 商品名称='" & Text1.Text & "'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
myerr:
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text3.Text = ""
On Error GoTo myerr
If Trim(Text2.Text) = "" Then
If MsgBox("请输入查询条件！", vbInformation, "提示") Then GoTo myerr
End If

Dim str
str = "select * from 进货记录 where 进货时间='" & (Trim(Text2.Text)) & "'"

Adodc1.RecordSource = str.Fields.Value
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
myerr:
End Sub

Private Sub Command3_Click()
Text2.Text = ""
Text1.Text = ""
On Error GoTo myerr
If Trim(Text3.Text) = "" Then
If MsgBox("请输入查询条件！", vbInformation, "提示") Then GoTo myerr
End If

Dim str
str = "select * from 进货记录"

Adodc1.RecordSource = str
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
myerr:
End Sub

Private Sub Command4_Click()
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub