(siternd&"55tr"& rs.fields(ns).Name) = rs(ns).Value Next Rs.Close Application.UnLock() End If %>