Private Sub DataCombo1_Click(Area As Integer)
If DataCombo1.Text = "" Then
Exit Sub
End If
Adodc2.RecordSource = "select * from caiming where no = " _
+ DataCombo1.BoundText
Adodc2.Refresh

DataList1.ReFill
End Sub

总是提示实时错误，说select附近有语法错误！不知道怎么改才合适，请教高手指导

如果是个你的“no”列，是个字符串，就应该写：
Adodc2.RecordSource = "select * from caiming where no = '" _
& DataCombo1.BoundText & "'"

改了之后，

运行时首先会出现 “在关键字select附近有语法错误”

按下确定后就出现

实时错误‘—2147217900（80040e14)’：

对象‘ARefresh’的方法‘IAdoc’失败

[此贴子已经被作者于2006-4-9 18:18:17编辑过]