用vb 6.0　编写连接和打开SQL数据库的有关问题

用vb 6.0　编写连接和打开SQL数据库的问题
我用vb   6.0編寫連接和讀取SQL   Server資料庫的程式。程式如下：
   

Private   Sub   cmdSearch_Click()                                                        
   
      Dim   conn   As   New   ADODB.Connection
      Dim   rs   As   Recordset
      conn.ConnectionString   =   "Driver={SQL   Server};server=XICHEN;uid=sa;pwd=;database=disc "
      conn.Open
   
    'rs.CursorLocation   =   adUseClient
    'rs.CursorType   =   adOpenStatic
   
      Set   rs   =   CreateObject( "adodb.recordset ")
    '   rs.ActiveConnection   =   conn
     
      rs.Open   "select   *   from   disc_name   ",   conn,   adOpenForwardOnly,   adLockReadOnly
      'other   codes   go   here
End     sub


      運行後老提示rs.Open   "select   *   from   disc_name   ",   conn,   adOpenForwardOnly,   adLockReadOnly句有錯誤，
錯誤是open“未找到方法或資料成員”，   不知為何？


------解决方案--------------------
rs.Open "select * from disc_name ", conn, adOpenDynamic, adLockOptimistic
试试
------解决方案--------------------
也可能是 rs 没有定义 Dim rs As New ADODB.Recordset
------解决方案--------------------
RS要重新NEW一下
Dim rs As New ADODB.Recordset