我用ＶＢ６，代码如下.
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\shuju.mdb;Persist Security Info=False" '指定连接字符串
Adodc1.RecordSource = "select * from" & " " & tablename '打开数据表
Adodc1.Refresh
text1.text="一共找到" & Adodc1.Recordset.RecordCount & "条记录" '得到总记录数.
-----------------------------------
现我想在Text2中显示tablename(表名)中的性别=男的个数(性别为字段名),如何写代码?望指教
Text2.text=??????? '性别为男的个数

Adodc1.RecordSource = "select * from" & " " & tablename   & " Where 性别='男'"

现我想在Text2中显示tablename(表名)中的性别=男的个数(性别为字段名),如何写代码?望指教
Text2.text=??????? '性别为男的个数