DimsrsAsNewADODB.Recordset DimsnAsNewADODB.Connection Setsn=NewADODB.Connection sn.Open"Provider=sqlOLEDB.1;UserID='sa';Password='PW';InitialCatalog='DB';DataSource='SERVER'" sql="select*fromTB" srs.Opensql,sn,adOpenKeyset,adLockOptimistic LABEL1="目前数据库中共有"&srs.RecordCount&"条生产信息记录!"rs.RecordCount是记录集的总数 Setsys=Nothing Setsn=Nothing
