....
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......

解决方案 »

  1.   

    让网格空间和data空间连接form1.data1.databasename="c:\111.mdb"(你的数据库路径)
    form1.data1.recordtype=1
    form1.data1.recordsource="select * from 表名 where 语文成绩>'" & score &"' and 数学成绩>'" & score &"'"   (score重保存分数限制,也就是你说的60分)
    form1.data1.refresh
    (这是网格中就会显示符合条件的学生)
    然后
    form1.data1.recordset.recordcount的值就是这些符合条件的学生的个数