Dim conn As Connection
set conn = new Connection
Recordset也要new 

解决方案 »

  1.   

    Public Function ifexists() As Long
      Dim conn As Connection
      conn.ConnectionString = "driver={SQL SERVER};server=server01;uid=sa;pwd=;database=www_investguide_com_cn"
      conn.Open
      Dim rs As ADODB.Recordset
      Dim sqlstr As String
      sqlstr = "select * from login"
    =============================================
    set rs=new adodb.recordset
    ===================================  rs.Open sqlstr, conn, adOpenDynamic, adLockBatchOptimistic
      If Not rs.EOF Then
        aspresponse.Write ("there are data in login database")
      End If
    End Function
      

  2.   

    谢谢,搞定,请问,加NEW和不加NEW有什么差别?