Help! 如何用ADO 连接到 SQL server 2000?

Question

Public Sub ConnectionStringX()   Dim Cnxn1 As ADODB.Connection
   Dim Cnxn2 As ADODB.Connection
   Dim Cnxn3 As ADODB.Connection
   Dim Cnxn4 As ADODB.Connection    ' Open a connection without using a Data Source Name (DSN)
   Set Cnxn1 = New ADODB.Connection
   Cnxn1.ConnectionString = "driver={SQL Server};server=srv;uid=sa;pwd=pwd;database=Pubs"
   Cnxn1.ConnectionTimeout = 30
   Cnxn1.Open
   
    ' Open a connection using a DSN and ODBC tags
   Set Cnxn2 = New ADODB.Connection
   Cnxn2.ConnectionString = "Provider=sqloledb;Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=;"
   Cnxn2.Open
   
    ' Open a connection using a DSN and OLE DB tags
   Set Cnxn3 = New ADODB.Connection
   Cnxn3.ConnectionString = "Data Source=Pubs;User ID=sa;Password=pwd;"
   Cnxn3.Open
   
    ' Open a connection using a DSN and individual
    ' arguments instead of a connection string
   Set Cnxn4 = New ADODB.Connection
   Cnxn4.Open "Pubs", "sa", "pwd"
 
    ' Display the state of the connections using
    ' GetState function from below
   MsgBox "Cnxn1 state: " & GetState(Cnxn1.State) & vbCr & _
      "Cnxn2 state: " & GetState(Cnxn2.State) & vbCr & _
      "Cnxn3 state: " & GetState(Cnxn3.State) & vbCr & _
      "Cnxn4 state: " & GetState(Cnxn4.State)   Cnxn4.Close
   Cnxn3.Close
   Cnxn2.Close
   Cnxn1.CloseEnd Sub