strSQL = "SELECT * FROM TABLA" rs.Open StrSQL, ObjConn, 3, 3 FOr each campo in rs.Fields Response.write campo.name & "<br>" Next