....
set cnn=new ADODB.Connection
cnn.open ......
set rst=new ADODB.Recordset
rst.CursorLocation=adUseClient
rst.open "select * from XXX where Math > 60 and Chinese > 60" , cnn, adOpenKeySet, adLockReadOnly, adCmdText
lbCount.caption=rst.RecordCount
set dbgrid.DataSource=rst......
set cnn=new ADODB.Connection
cnn.open ......
set rst=new ADODB.Recordset
rst.CursorLocation=adUseClient
rst.open "select * from XXX where Math > 60 and Chinese > 60" , cnn, adOpenKeySet, adLockReadOnly, adCmdText
lbCount.caption=rst.RecordCount
set dbgrid.DataSource=rst......
form1.data1.recordtype=1
form1.data1.recordsource="select * from 表名 where 语文成绩>'" & score &"' and 数学成绩>'" & score &"'" (score重保存分数限制,也就是你说的60分)
form1.data1.refresh
(这是网格中就会显示符合条件的学生)
然后
form1.data1.recordset.recordcount的值就是这些符合条件的学生的个数