下面是我的代码 运行时提示 "FROM 子句语法错误" 我点确定出来 "对象'Refresh'的方法'IAdodc'失败" 这个句话 请各位大侠帮助

Private Sub MSFlexGrid1_Click()
If Trim(Me.MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)) = "" Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Else
Adodc1.RecordSource = "select * from 课件表 where 课件编号='" & Trim(Me.MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)) & "'"
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields(0)
Text2.Text = Adodc1.Recordset.Fields(1)
Text3.Text = Adodc1.Recordset.Fields(2)
Text4.Text = Adodc1.Recordset.Fields(3)
Text5.Text = Adodc1.Recordset.Fields(4)
Text6.Text = Adodc1.Recordset.Fields(5)
End If
End Sub

试试这样..
Private Sub MSFlexGrid1_Click()
If Trim(Me.MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)) = "" Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Else
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "select * from 课件表 where 课件编号='" & Trim(Me.MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)) & "'"
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields(0)
Text2.Text = Adodc1.Recordset.Fields(1)
Text3.Text = Adodc1.Recordset.Fields(2)
Text4.Text = Adodc1.Recordset.Fields(3)
Text5.Text = Adodc1.Recordset.Fields(4)
Text6.Text = Adodc1.Recordset.Fields(5)
End If
End Sub

多谢板主 呵呵问题已经解决了 请问加了"Adodc1.CommandType = adCmdUnknown"个是什么意思呢?