Consultar total de registros

[jorgegetafe]

Saludos, quiero obtener el número total de registros que tiene mi base de datos, pero tengo problemas para almacenar el resultado de la consulta en una variable integer, me da errores de compilación por tipo de datos incompatibles.

A ver si me podeis decir como solucionarlo:

Código:

 Public Function numContactos() As Integer Implements IContacto.numContactos
        Try
            Dim sql As String
            Dim comando As OleDb.OleDbCommand
            Dim resultado As Integer

            sql = "select count(*) from contacto "
            comando = New OleDb.OleDbCommand(sql, conexion)
            resultado = comando.ExecuteReader
            'ERROR: Un valor de tipo 'System.Data.OleDb.OleDbDataReader' no se puede convertir en 'Integer'

            Return resultado

            resultado.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            Return Nothing
        End Try
    End Function

Muchas gracias.