Dim DataCount : DataCount = Conn.execute("Select Count(*) from TableName")(0) 上面，连接对象是Conn，表名叫TableName,读出总条数后赋值给DataCount。
