一个VB查询问题

Question

Private Sub Command2_Click()
Field_val1 = Text1.Text
 Data1.Connect = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=学生个人成绩管理;Data Source=."  
    Data1.DatabaseName = "C:\Program Files\Microsoft SQL Server\MSSQL\Data\学生个人成绩管理_Data" 'dbf数据库所在文件夹
    Data1.RecordSource = "课程表,成绩表,教师表,教室表" 
     ss1 = "select * from table where 课程名 like  '% &Field_val1 & %'"
    Data1.ss1
    Data1.Refresh
End Sub
  
为什么执行后  在文本框输入课程名  总是提示没有要求对象

Answer 1

已经换了也不行啊 
我用得上是SQL

Answer 2

http://download.csdn.net/source/1498324

Answer 3

ss1 = "select * from table where 课程名 like '% &Field_val1 & %'"
改成
ss1 = "select * from table where 课程名 like '%" & Field_val1 & "%'"