% Dim recS Dim strSql Set recS=Server.CreateObject("ADODB.RecordSet") strSql="SELECT * FROM Names where Name='a'" 'set recS=dbConn.execute (strSql) %>