VB6 datagrid的两个有关问题()

VB6 datagrid的两个问题(求助)
问题一:
datagrid表头的序号在筛选后就乱了，怎么重新生成呢？
NO Tester ID  Cell ID  Group  Mode  Yield  
1     6084         01       S11      J1B    25%   
2     6083         02       S12      J1B    5%
3     6082         03       S13      J1B    45%
4     6081         04       S21      J1B    21%
5     6080         05       S12      J1B    33%
筛选后就变成了
NO Tester ID  Cell ID  Group  Mode  Yield  
1     6084         01       S11      J1B    25%   
2     6083         02       S12      J1B    5%
3     6082         03       S13      J1B    45%
5     6080         05       S12      J1B    33%
我想让它自动编号为:
NO Tester ID  Cell ID  Group  Mode  Yield  
1     6084         01       S11      J1B    25%   
2     6083         02       S12      J1B    5%
3     6082         03       S13      J1B    45%
4     6080         05       S12      J1B    33%
该如何实现?
问题二:
统计出Group列下S1的记录个数显示到Label1中,请各位高手帮忙解答.

引用

Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\mdb.mdb;Persist Security Info=False"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from AllZone where [group] like 'S1%'"
Set DataGrid2.DataSource = Adodc2
datagrid2.columns(5).numberformat="#0%"

------解决方案--------------------
如果你要用上面的方式逐个记录改写编号，那当然就知道记录数了。

否则：
ADODC2.Recordset.MoveLast
ADODC2.Recordset.MoveFirst
Label1.Caption = ADODC2.Recordset.RecordCount

------解决方案--------------------

select 序号= IDENTITY(INT,1,1),

           a.Tester ID,

           a.Cell ID,

           a.Group,

           a.Mode,

           a.Yield 

 into #temp

 from AllZone where [group] like 'S1%'

go

select * from #temp

go

drop table #temp

go

楼上的code我加了个文字特效，显示不对，用这个。
------解决方案--------------------
如果你的sql是2005以上，上面的查询语句还可进一步简化成：

select RANK() OVER (ORDER BY Cell ID ) AS 序号,

            Tester ID,

            Cell ID,

            Group,

            Mode,

            Yield 

from AllZone where [group] like 'S1%'

另外字段名称别在中间加空格，比如你的Cell ID字段，写成Cell_ID较妥当。
------解决方案--------------------