Dim cn As New ADODB.Connection()
Dim rs As New ADODB.Recordset()
Dim cnStr As String
Dim cmd As New ADODB.Command()

' Modify this connection string to reflect your server and logon information.
' Store the connection to a variable to be used throughout this example.
cnStr = "Provider=SQLOLEDB;Initial Catalog=Pubs;Data Source=servername;" & _
   "User ID=sa;Password=mypassword;"

' 1. Connect through the Connectionstring property.
cn.ConnectionString = cnStr
cn.Open()
cn.Close()

' 2. Connect through the Connection object's Open method.
cn.Open(cnStr)
cn.Close()

' 1. Open Recordset through the Execute method of the Connection object.
cn.Open(cnStr)
rs = cn.Execute("Select * from Authors")
rs.Close()
cn.Close()

' 2. Open Recordset through the Command.Execute method.
cn.Open(cnStr)
cmd.ActiveConnection = cn
cmd.CommandText = "Select * from Authors"
rs = cmd.Execute
rs.Close()
cn.Close()

' 3. Open Recordset without a Connection object.
rs.Open("Select * from Authors", cnStr)
rs.Close()

' Release the objects to free memory.
rs = Nothing
cn = Nothing