Ado控件访问出错？？？？？急急＝、？？？？？？在线等待

Question

dim Conn = New ADODB.Connection
 dim Rst As New ADODB.Recordset 
       Conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=yy;Data Source=" & strserver & " "
       Conn.Open
我用rst 访问数据库
   Set Rst = Nothing
            Rst.Open "SELECT * FROM 供货商表 WHERE 助记码 LIKE '"         &ghsbh_txt.Text & "%'", Conn, adOpenKeyset, adLockOptimistic
为何有时候提示：不能访问数据，数据源设置可能不正确或者数据源的功能有限。
这是怎么情况？？？？？？？？？？？？？？？
好心人：请联系我13332459118
我等急用？？？？？？？？？

Answer 1

dim Conn = New ADODB.Connection
 dim Rst As New ADODB.Recordset 
       Conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=yy;Data Source=" & strserver & " "
       Conn.Opendim strSql as string
strSql="SELECT * FROM 供货商表 WHERE 助记码 LIKE '"set rst =new adodb.recordsetrst.open strSql,Conn,adOpenKeyset, adLockOptimistic