Contar registros y poner resultado en TextBox

Trabajo en Visual Studio 10 y tengo una base de datos de access.

Necesito contar los registros de una tabla llamada Polizas con un campo llamado Ramo y que me ponga el resultado en un textBox llamado TbPol. El código que estoy usando y me arroja un resultado de 0 (Cuando debería ser 4) es:

Private Sub Estadisticas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim N_Polizas As Integer

cmd.Connection = conexion
cmd.CommandType = CommandType.Text
cmd.CommandText = "SELECT COUNT (Ramo) AS N_Polizas FROM Polizas;"
cmd.ExecuteNonQuery()
TbPolMesMes.Text = N_Polizas

End Sub