编译错误：类型字符与声明的数据类型不符合

Question

执行以下代码时出现错误提示（如标题），请高手帮忙，感谢！
Private Sub Command1_Click()
       Adodc2.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=AIS20061125222715;Data Source=KMWM1"
    Adodc2.CommandType = adCmdUnknown
    Adodc2.RecordSource = "select sum(t_lockstock.fqty)as sk from t_lockstock group by fitemid"
    Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=AIS20061125222715;Data Source=KMWM1"
    Adodc1.CommandType = adCmdUnknown
    Adodc1.ReselectcordSource = "select t_icitem.fname,fmodel,sum(icinventory.fqty) from t_icitem right outer join icinventory on t_icitem.fitemid=icinventory.fitemid and t_icitem.fname like " & "'%" & Text1.text& '%"'  group by t_icitem.fname,t_icitem.fmodel,icinventory.fitemid order by fname"
    Set DataGrid2.DataSource = Adodc2
    Set DataGrid1.DataSource = Adodc1
End Sub

Answer 1

 like   "   &   "'%"   &   Text1.text&   '%"'  改為 like   "   &   "'%"   &   Text1.text&   "%'"  

Answer 2

try~~
 like   "   &   "'%"   &   Text1.text&   '%"'  改為 like   "   &   "'%"   &   Text1.text&   "%'"  

Answer 3

 like '%" &  text1.text & "%' group by ..

Answer 4

Private   Sub   Command1_Click() 
              Adodc2.ConnectionString   =   "Provider=SQLOLEDB.1;Integrated   Security=SSPI;Persist   Security   Info=False;Initial   Catalog=AIS20061125222715;Data   Source=KMWM1" 
        Adodc2.CommandType   =   adCmdUnknown 
        Adodc2.RecordSource   =   "select   sum(t_lockstock.fqty)as   sk   from   t_lockstock   group   by   fitemid" 
        Adodc1.ConnectionString   =   "Provider=SQLOLEDB.1;Integrated   Security=SSPI;Persist   Security   Info=False;Initial   Catalog=AIS20061125222715;Data   Source=KMWM1" 
        Adodc1.CommandType   =   adCmdUnknown 
        Adodc1.ReselectcordSource   =   "select   t_icitem.fname,fmodel,sum(icinventory.fqty)   from   t_icitem   right   outer   join   icinventory   on   t_icitem.fitemid=icinventory.fitemid   and   t_icitem.fname   like   "   &   "'%"   &   Text1.text &   '%"'  & "  group   by   t_icitem.fname,t_icitem.fmodel,icinventory.fitemid   order   by   fname" 
        Set   DataGrid2.DataSource   =   Adodc2 
        Set   DataGrid1.DataSource   =   Adodc1 
End   Sub 

Answer 5

Private Sub Command1_Click() 
  Adodc2.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security   Info=False;Initial Catalog=AIS20061125222715;Data Source=KMWM1" 
  Adodc2.CommandType = adCmdUnknown 
  Adodc2.RecordSource = "select sum(t_lockstock.fqty) as sk from t_lockstock group by fitemid" 
  Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security   Info=False;Initial Catalog=AIS20061125222715;Data   Source=KMWM1" 
  Adodc1.CommandType = adCmdUnknown 
  Adodc1.ReselectcordSource = "select t_icitem.fname,fmodel,sum(icinventory.fqty) from t_icitem   right outer join icinventory on t_icitem.fitemid=icinventory.fitemid and t_icitem.fname like "   & "'%" & Text1.text & "%'" & " group by t_icitem.fname,t_icitem.fmodel,icinventory.fitemid order by fname" 
  Set DataGrid2.DataSource = Adodc2 
  Set DataGrid1.DataSource = Adodc1 
End Sub 

Answer 6

Private   Sub   Command1_Click() 
         Adodc2.ConnectionString   =   "Provider=SQLOLEDB.1;Integrated   Security=SSPI;Persist   Security   Info=False;Initial   Catalog=AIS20061125222715;Data   Source=KMWM1" 
        Adodc2.CommandType   =   adCmdUnknown 
        Adodc2.RecordSource   =   "select   sum(t_lockstock.fqty)as   sk   from   t_lockstock   group   by   fitemid" 
        Adodc1.ConnectionString   =   "Provider=SQLOLEDB.1;Integrated   Security=SSPI;Persist   Security   Info=False;Initial   Catalog=AIS20061125222715;Data   Source=KMWM1" 
        Adodc1.CommandType   =   adCmdUnknown 
        Adodc1.ReselectcordSource   =   "select   t_icitem.fname,fmodel,sum(icinventory.fqty)   from   t_icitem   right   outer   join   icinventory   on   t_icitem.fitemid=icinventory.fitemid   and   t_icitem.fname   like  '%"   &   Text1.text &  "%'  group   by   t_icitem.fname,t_icitem.fmodel,icinventory.fitemid   order   by   fname" 
        Set   DataGrid2.DataSource   =   Adodc2 
        Set   DataGrid1.DataSource   =   Adodc1 
End   Sub 
 

Answer 7

bqb： 未找到方法或数据成员

Answer 8

修改后问题已解决，rouqu的答案最接近，分给他吧，非常感谢各位！

Answer 9

修改后问题已解决，rouqu的答案最接近，分给他吧，非常感谢各位！