DimsAsStringDimrsAsNewADODB.Recordsets="Driver={SQLServer};Database=trsip;UID=sa;PWD=oallserver;Server=10.47.1.12"conn.ConnectionString=sconn.Opentxtsql="selecttop1*frombook"Setrs=NewADODB.Recordsetrs.Opentxtsql,conn,_adOpenKeyset,_adLockOpt