江湖救急，一个记录总数的问题！

我刚学VB好多都不懂   麻烦指导下 
详细点说   我有个表名字是RKY，里面有性别   （男，女） 
我想统计出男生有多少个记录   应该怎么样写这个程序呢，拜托！完整点，我是新手上路，不好意思哈！




Private   Sub   Command1_Click() 

Dim   a   As   Integer 

  Data1.RecordSource   =   "select     性别,a=sum(case   when   性别='男'   then   1   else   0   end)   *       from       性别" 
  Data1.Refresh 
  
  aaa.Caption   =   a 
  
End   Sub 
还是不得呢   什么原因呢 如果用count是不是简单点啊，怎么写呢 --------------------编程问答-------------------- 顶一下啊!! --------------------编程问答-------------------- 改成 “select 性别,count(*) as cnt from RKY where 性别='男'"

补充：VB ,  数据库(包含打印，安装，报表)