求高手帮看看代码问题出现在哪里了，该怎么改正

本帖最后由 bcrun 于 2011-11-30 21:52:15 编辑 http://download.csdn.net/detail/veron_04/1498324 应该是我们问你，你的问题出在哪里 本帖最后由 bcrun 于 2011-11-30 21:52:13 编辑 On Error GoTo aaa
  sttr = "select * from xszb where xsrq = '" & Text5.Text & "'"
  Adodc1.RecordSource = sttr
  adodc1.refresh 
  exit sub
aaa:
  MsgBox 111

补充：VB ,  基础类