Ayuda con captura de datos de SQL SERVER

[varnayo]

me refiero a otra cos;a a capturar los datos de un query, supongamos que ya tengo la conexion:

Imports System.Data.SqlClient
Public Class ClaseConexion


'CONEXION A LA BASE DE DATOS ROSVIC
Private CN As New SqlConnection("Server=SVR_CEREMA;DataBase=CEREMA;u id=CRM_PRINT;pwd=''")

Public ReadOnly Property conecta() As SqlConnection
Get
Return CN
End Get
End Property

End Class


ahora creo una clase:

Public Function RetornarCantidad() As Integer
Dim da As New SqlDataAdapter("select count(cod_cita) as cantidad_cita from cita where fec_cita='2009/06/01'", cn.conecta)

return= ??????

Return entero

End Function


como le doy el valor del conteo a "entero" ???