VB的一些小问题，请求解决
我在设计一个管理软件，查询功能无法实现，老是提示from语法错误，对象'refresh'的方法'iadodc'失败是这样的，一个Combo1下拉列表可以选择查询条件和一个text1输入关键词，一个command1,vb6.0+access实现，在datagrid1上显示查询信息。
我的句子是这样的：
Private Sub Form_Activate()
'添加查询项目列表
Combo1.AddItem ("工单ID")
Combo1.AddItem ("设备ID")
Combo1.AddItem ("危害水平")
Combo1.ListIndex = 1
End Sub
Private Sub Command1_Click() '查询库存信息
Adodc1.RecordSource = "select * from FMECA where (FMECA." & Combo1.Text & " like + '" + Text1.Text + "'+'%')"
Adodc1.Refresh
End Sub
每次都是在 Adodc1.Refresh上出现黄条 --------------------编程问答-------------------- SQL 语句有问题，where后面写的什么。。。 --------------------编程问答-------------------- 怎么改啊？请教这位兄台，本人小白啊 --------------------编程问答-------------------- select 字段列表 from 表名 where 条件字段名=条件
--------------------编程问答-------------------- 试试这个：
Adodc1.RecordSource = "select * from Plan where XXX ='" & Combo1.Text & "' and YYY like '" & Text1.Text & " ' "
XXX，YYY是你数据库的字段名
--------------------编程问答-------------------- SQL语句写错了
like 的主要语法格式是 like '%xx%'；字符串连接尽量用&，+号两遍若遇到数字则会加和，要养成好编程习惯！
--------------------编程问答-------------------- 还是无法解决 --------------------编程问答-------------------- Private Sub Command1_Click() '查询库存信息
Adodc1.RecordSource = "select * from FMECA where (FMECA." & Combo1.Text & " like '%" & Text1.Text & "%')"
dim sqlstr as string
sqlstr = "select * from FMECA where (FMECA." & Combo1.Text & " like + '" + Text1.Text + "'+'%')"
debug.print "sqlstr=["+sqlstr+"]"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
End Sub
'将立即窗口中输出的sqlstr的内容帖上来 --------------------编程问答-------------------- 结果呢？
补充：VB , 基础类
