请老师帮我看看这个查询代码错了吗？怎么一回车查询程序就没有响应了。VB就退出了
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
      
        Adodc2.ConnectionString = Conn
     Adodc2.RecordSource = "select s.罪犯编号 AS 罪犯编号,s.档案号 AS 档案号,s.姓名 AS 姓名,t.余额 AS 账户余额,p.限购 AS 限额,p.等级 AS 购物等级,p.购物批次 AS 购物批次 from 四知 s,罪犯总账 t,限购表 p where  s.编号 = t.编号 And s.档案号 = p.档案号 And s.姓名 = p.姓名 And s.姓名 like +  '%" & Text1.Text & "'+'%' or s.编号 = t.编号 And  s.档案号=t.档案号 And s.档案号 = p.档案号 And s.姓名 = p.姓名 And s.姓名拼音 like + '" & Text1.Text & "'+'%' "
     Adodc2.Refresh
          Set DataGrid1.DataSource = Adodc2
          DataGrid1.Refresh
  DataGrid1.Columns(0).Width = 1500
  DataGrid1.Columns(1).Width = 800
  DataGrid1.Columns(2).Width = 1000
  DataGrid1.Columns(3).Width = 2500
 DataGrid1.Columns(4).Width = 1500
   DataGrid1.Columns(5).Width = 1500
    DataGrid1.Columns(6).Width = 1500
    'DataGrid1.Columns(7).Width = 1500
   ' DataGrid1.Columns(8).Width = 1500
   ' DataGrid1.Columns(9).Width = 1500
   ' DataGrid1.Columns(10).Width = 1500
       'DataGrid1.Columns(11).Width = 1500
         ' DataGrid1.Columns(12).Width = 1500
   
       Label2.Caption = "人数为 " & Adodc2.Recordset.RecordCount
  End If
End Sub