Yet another database connection in ASP

Dim objConn
[i]// TO COUNT RETURNED RECORDS[/i]
Dim counter
counter = 0
 [i]// USING THE NATIVE ASP SERVER OBJECT,
// CALL IT'S CreateObject METHOD TO MAKE
// objConn AN INSTANCE OF THE ADO
// CONNECTION OBJECT:[/i]
 Set objConn = Server.CreateObject("ADODB.Connection")
 // OPENS A DATA SOURCE NAME (DSN) CALLED myDSN.
objConn.Open "DSN=myDSN"
 [i]// OPEN A RECORDSET BY EXECUTING SOME
// SQL ON A TABLE IN THE OPEN CONNECTION[/i]
 Set RS = objConn.Execute("SELECT * FROM currentDogs")
 [i]// NOW RETURN THESE RECORDS IN A SIMPLE
//FORMAT TO THE WEB PAGE:[/i]
 Do While Not RS.EOF[quote]For each fld in RS.Fields
response.write fld.Name & " = " & fld.Value
Next
RS.MoveNext[/quote]Loop
 [i]// CLOSE THE CONNECTION AND THE [/i]
RECORDSET
RS.Close
objConn.Close