thanks everyone
<pre lang="vb">
Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Kallymore-PC\Documents\Visual Studio 2012\Projects\count\count.accdb")
Dim cmd As New OleDbCommand("select count (Gender) as i from userinfo where Gender = 'male'", cn)
cn.Open()
Dim reader As OleDbDataReader = cmd.ExecuteReader
If reader.HasRows = True Then
End If
reader.Read()
Label59.Text = reader(0).ToString()
this did the trick